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, "Pour les seuls numéros encore 
| disponibles en mai 1987” 

Numéro 6 
Essàs de l’XL DOS AUTOVERIF 
pour améliorer la fiabitilé du char¬ 
gement cassette Essai de la carte 8 
E/S MAGECO. _ VOfCE : OR IC | 
parte dans interface RENUM-OES- 
TRUC renumiVaron et suppression 
de lignes Basic Les Interrup¬ 
tions : une horloge. Master-mind : 
jeu. ANADIS : analyse de dis¬ 
quettes au format MCRODISC. La ^ 
Jaemin-Printer (Brother M 1009) à 
l’essai et recopie d’écran pour cette 
impnmante. 

Numéro 7 

BLURK'S : jeu. Editeur de carac¬ 
tères pour redéfinir le jeu de carac¬ 
tères. Calculs en langage ma¬ 
chine pour aller plus vite. Lecture 
et Ecriture de secteurs sur Jas¬ 
min ou commet# réparer une dis¬ 
quette. Tour dnonzon des Monl- 
teurs-Assembleurs du commerce. 
La magnéto sans angoisse ou 
comment améliorer le chargement 
des cassettes. Essai du RANDOS 
Essai du crayon optique. Recopie 
d’écran sur MCP 40. L'interface 
TVS. 

Numéro 10 

Essai du modem TONIC. Le Basic 
Français. Utilitaires pour vous plaire 
(1). Modifications du MONITEUR 
1.0 de LOfl|CI&S. CROCKY : jeu. 
Compte RncaTre : gérez le sur 
MICRO-DISC (1). Compatibilité DTL ( 
2000 et JASMIN. 


rORIC. Essai de la tabk^raphique 
GRAPHISCOP. Le partage mé¬ 
moire de rORCjUtijpres pour 
vous plaire (2).^p U^VVMonH»ur- 
Assembleur. Compte bancaire 
(suite et fin). 

Numéro 13 

Transfert du FORTH sur MICRO- 
DISC. TANDEM 13 u^togioel pour 
le DTL 2000. Jour avec les cou¬ 
leurs de rORIC. Utilitaires pour vous 
plaire (3). Créer des fenêtres sur 
ORIC. MICRODtSC et JASMIN: 
ils communiquenL City on Raid : 


Numéro 15 

Une imprimante à ressai : la MT 
80S Spirographe : rosaces et ara¬ 
besques. TRON les motos de lu¬ 
mière (jeu). Esssai ifa la carte 256 
couleurs de Miajfutur. Editeur de 
secteurs sur Jasmin. MUSCORIC 
pour que rOIflC-l tjevienne musi¬ 
cien. Carte séné pour liaison avec 
MINrTEL. Educatif : le moteur à 4 
temps. Redéfinition de caractères 
pour EASYTEXT. 


vous les objets tractais ? Le 
Devin : chirologie ou jeu ? Un jeu : 
Frog Panic. Pour lister un program¬ 
me à partir dtSt^KL (et de la 
cane série) : nAKccord ez vos 
instruments de musique avec Frê- 
quencamètre. Text-Hires (lin). Léo¬ 
nard (suite). Deux recopies d’é¬ 
cran: GP 550 et Brother Ml009 
(Jasmin primer). Lister CEPROM du 
Microdisc. 


Numéro 19 

Léonard : fin de l'utilitaire création 
graphique. Modifications de FAT- 
MOS et du MiCROOiSC. Un mini- 
interpréteur F-oteclon du Hl- 
MEM. Le tri M iançsge machine. 
Jeu éducatif ^UROP’ORIC En sa¬ 
voir plus sur le SEDORIC Compte 
bancaire :gérez-le sur JASMIN. Uti¬ 
litaires pour vous plaire (4). 


Numéro 20 
CALCULA 
PUISSSAI 
cran pour 
préteur Basic 


aft 


d’essai - 
Recopie tfé- 
- Mini Inter- 


Numéro 11 r 
Hors-série rRngV d'une multitude de 
programmewn tous genres 


Numéro 12 

Ecrivez votre jeu d’aventure : COL- 
DITZ Le DTL 2000 ♦ un serveur 
pas cher. Schéma électronique de 


Numéro 17 

Le TELESTRAT se présente. Trans¬ 
fert de récran TEXT en HIRES (1). 
Conversion du binaire en DATA. 
ORICTEL : iogiaei Application de 
la carte série «MmUl Recopie ra¬ 
pide sur Imprffaaflfa mode texte. 
Ecriture évoiuj# LEONARD : utili¬ 
taire de dessin (1). Fiches de 
paye : comment calculer les sa¬ 
laires avec ORIC. Jacquettes de cas 
settes pour GP 50 Catalogue 
amélioré sur Jasmin. 

Numéro 18 

Un drive 3"1/2 à Triphonie : 
PORC devient orgue. Connaissez- 


Numéro 21 

Les interruptions ^Animation gra¬ 
phique en 3 D - Jeu : Singerie (1) - 
SEDUTIL pou 7MM utiliser SEDO¬ 
RIC - RecopjÆpb VIDEOTEX - 
Butler soft pot^mprimante - Super 
recopie d'écran. 


Numéro 22 

Tout sur le VIA 6522 - GROS: 
caractères géants - MUSICORIC et 
JASMIN - J0fa Séries (2) - 
S WA P OVERWi Diététique : 
mieux s'alimopR - Sehéma de la 
carte contrôleur JASMIN - Compac¬ 
teur graphique - Animation gra¬ 
phique 3D. 


Educatif : TABL 
- String : comi 
Sauvetage d'ui 
culs de COR 



int Formaté 
aphiques - 
me - Cal- 
s et collages 


- Casse-bnques - clipping. 


Numéro 24 
Chasse au bug 
nateur - Si 
N - Dossier 
Print : éditeur 
tection de sool 


Astrologie et ordi- 
alculs dans 
,T - MinF 
irolles - Dé¬ 
cran 59 x 28 


bug - Astrotoç 
ngen* (fir^j Ca 
er TELESTFl/- 
•ur de u<ndr- 

ionWne - fccra 


caractères - Note - cale. 


Numéro 25 

Test : le Jasmin- PC^f es fichiers 
dont tout le mande parle - Ecriture 
stylée sur de la vie - 

Rem col or - plus sur FT 

DOS - Data ^ORIC à 2 ROM - 
MUSIC(I) 



Numéro 28 

ORIC Hippi 
Surveillez v 
déroulants 
togramme: 




Numéro 30 

Structure 
et Dr Agon 
Calculs e 
turbo — nettig 1 



RS 232 par 
de disquette à 
à Paris (2). 


de bord — 

— Les menus 

— Tracé d'his- 


ug pour Jasmin 
The car war — 
STRAT - Goto 
mes 121. 


AT — Don Jean 
80 colonnes — 
ittante — Clavier 
mes 13). 


Les articles et programmes rappelés 
ci-dessus ne forment que Tessentiel 
des différents numéros de THEORIC 
cités. Les essais des différents logi¬ 
ciels. les trucs et astuces, etc. sont 
autant d'arguments qui devraient 
vous inciter A compléter votre collec¬ 
tion de THEORC. 
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22, rue de Montreuil 94300 VINCENNES - Tél. : (1) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h el de 15 h à 19 h. LE SAMEDI de 10 h 30 à 19 h 

REVENDEUR OFFICIEL AGRÉÉ ORIC-FRANCE 




SYNTHEVOC 1 


PROMOTION 


K> 


□ moniteur couleur 


promotion 


FT” A 


□ atmos. 990 F 


Le lecteur disquette conçu par ORIC FRANCE pour 
l'Atmos. 

□ lect.disq. MICRODISC. 2290F 



MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il "discute" 
avec ses semblables et accède au réseau "minitel" 
Fourni avec interface intégrée et logiciel 
□ modem OIGITELEC.TïW 990 F 



Le "musl" pour les amateurs de graphisme Utilisée 
par la majorité des créateurs de logiciel cette tablette 
vous séduira par sa simplicité d'utilisation et la qualité 
"top niveau" des résultats obtenus (ex options faire 
des points, traits, boites.cercles, texte, remplir, “zoom”.. ) 
ügraphiscop— 990 F 



Spécialement conçu pour ORIC ce magnétophone vous évitera 
bien des soucis. 

□ magnétophone. 380 F 


INTERFACE T 



Cette interface va cous permettre de transformer votre 
moniteur couleur en T V 

□ interface T V. 1490 F 



Cette interface vous permet de laisser brancher en per¬ 
manence trois appareils utilisant la prise péritel. 

□ interfacemultipéri . 750 F 


PROMOTION logiciel ORIC 1 exclusivement 

pour 2 litres : 145 F pour 3 litres :195 F pour 4 titres : 220 F pour 5 titres : 250 F 


□ trace dump 
Donc mind 

□ guerre des couleurs 

□ ciros 

□ fromage 

□ logger 
□cal oric 


le lièvre et la tortue 

□ le monde végétal 

□ morpion 

□ dicodonc 

□ zig zag 

□ achetons rage 

□ centipede 


□ gastronon 

□ oric munch 

□ facturation 

□ ultima zone 

□ pengoric. 

□ finances 

C copy écran (pour GP 100) 


□ calculus 

□ gestion bancaire 

□ budget familial 

□ caractor 

□ guerre des couleurs 


LOGICIELS CASSETTES 

Indiquez nous en le soulignant un (ou deux) litres de remplacement en cas de rupture de stock 


U formule 1 

150 F 

□ elysee 

145F 

L1 melies toimephisto 

95 F 

□ cobra pinball 

150F 

l i gestion de stock 

145F 

□ mission delta 

125F 

□ clovis 1 (échecs) 

150F 

□ hades 

255F 

Cl montsegur 

145F 

□ dossier G 

145F 

□ images (d a o ) 

140F 

□ mots croises 

120F 

□ 3 0 munch 

140F 

□ insect insamty 

100F 

□ musirama 

140F 

□ 3 Olongus 

140F 

TJ intox et zoe 

140F 

□ nessy 

95F 

□ 3 0 maze 

100F 

□ l'apprends! anglais 

130F 

[ ] ordidactic 

250 F 

□ ATM 

135F 

□ karaté 

110F 

□ oric base 

125F 

□ add sous 

165 F 

□ la cité de cristal 

150 F 

G orthocrack vol 1 

175F 

□ assimil (anglais) 

275 F 

□ la cité maudite 

145 F 

□ orthocrack vol 2 

175F 

□ basic étendu 

135F 

□ la flûte inca 

125F 

□ orthocrack vol 3 

175F 

□ businessman 

145F 

□ lelerd amnukor 

195F 

Ci outimatic 1 

125F 

□ cheops 

140F 

le-general 

120F 

□ r d v de la terreur 

105 F 

□ clavidact 

125F 

□ le masque d'or 

155 F 

rabbil 

105F 

□ cobra 

105F 

□ le millionnaire 

130 F 

□ saga 

150F 

□ crypt show 

110F 

□ le minotaure 

165F 

□ slarter 3 0 

135F 

□ cubomagique 

190F 

} retour dudoct gemus 

165F 

□ System'animation 

140F 

□ damaefieu dames) 

125F 

. 1 secret du tombeau 

145F 

□ tekms 

125F 

dpi),il 

110F 

i tour du monde 80 |ours 

130F 

□ terminus 

125F 

□ détective story 

160F 

□ hght cycle 

115F 

Cl tic lac 

120F 

□ dialogue 

125F 

□ lissage de courbe 

125F 

U triathlon 

155F 

□ digger 

100F 

□ locus 

105F 

□ tyrann 

185F 

□ dit ’d'acMsci nat 5 e | 

95 F 

□ longraph 

299F 

( ultima zone 

100 F 

tî dit ’dac'lsyst auteui) 

95F 

□ maradamhumper 

165F 

□ une affaire en or 

145 F 

□ élephorm/color 

105 F 

□ malh sam (Primaires! 

125F 

□ waydor 

115F 

□ cobra 

105 F 

□ 30 invaders 

100 F 

□ wormy 

165F 

□ ludico 

140 F 

□ author (trait-texte) 

120 F 

□ xénon 1 

105 F 

mrtlio-loto 

140 F 

□ délence force 

100 F 

□ xénon 3 

115F 

no a.o 

155 F 

□ super break oui 

110 F 

zorgonsrevenge 

115F 

□ vision ........ 

130 F 

□ super méleor 

110 F 

□ onc munch 

100 F 



□ rat splat 

105 F 

DISQUETTES 


LIVRES 


JASMIN 



78F 

nouveaux jeux ATMOS 


G zonga 
□ lasmitel 

225F 

56 prog pour oric 

88 

499F 

; 1 l'oric âlalfiche 

95F 

leux graphiques ATMOS 

95 F 

□ les conquérants 

250F 

□ mieux prog sur oric 

110F 

[ i onc et son micro procès 

95 F 

SEDORIC 

dangereusement votre 
□ arcade n° 1 

275F 

235F 

□ manuelrél t2 

□ manuel de rel il 

i t dos et ses fichiers 

120F 

138F 

150F 

i i interfaces pour onc 
[ i l onc a nu 
( ' programme pour onc 

59 F 
151 F 
85 F 

□ arcaden°2 

235 F 

□ apprenez élec sur oric 

110F 




PROMOTION : 2 titres 180 F, 3 titres 240 F, 4 titres 280 F. 5 titres 300 F. 

□ don t press letter 0 □ play ground 21 lJ puzzle □ a view to a kill (007) 

□ encounter □ probe 3 □ rabbit □ 3 0 maze 

□ extended basic 1 □ gubbie □ colorie □ 3 0 exo 

□ micro geo □ the ultra □ businessman LJ adress file manager 

CJ mona □ annuaire □ elektro storm 

□ oricade □ vision Pldraught 

Cette promotion est valable dans la limite des stocks disponibles Indiquez nous en le soulignant un 
(ou deux) titres de remplacement en cas de rupture de stock 


Il ne lui manque que la parole", synthé. V0C1 la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
rampaqnp ' 

□ synthétiseur vocal SîKLF 240 F 




) 


Rallonge Péritel 
Ne soyez plus collé à l'écran, (prise OIN à 6 broches). 
□ rallonge péritel.95 F 


m 


j 


Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 
□ interrupteur d’alimentation 85 F 








,otvt 



Interface tous |cux 

Grâce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux 

□ interface joystick tous jeux.365F 



□ joystick compétition PRO.170 F 

□blocalim.ORIC.180F 

□ alim. 12Vpourpéritel. 75F 

□ rallonge de bus 1 slot.140 F 

Cassettes vierges C20 

□ les 5. 45 F 

□ les 10 80 F 


. cable imprimante 160 F 

□ stylos MCP40 75 F 

rouleaux papier MCP40 (par 4) 75F 

disquette 3" 31F 

□ disquette 3" (par 10) 275 F 



OFFRE SPECIALE ! 

Nous reprenons 500 F votre ORIC 1 ou ATMOS* 
pour l'achat d'un ATARI 520 STF avec moniteur monochrome 



Que vous recherchiez votre premier micro ou 
que vous ara envie de franchir une étape décisive 
après avoir débuté avec un microordinateur 8 Ixts, 
choisissez ïAtari 520 STF. Cest une valeur sûre. 

Elu ordinateur de Tannée aux USA. desenu 
rapidement le best sdler de la micro en AUemagne, 
déjà (Musaté en France, X Atari 520 STF va. 
l'ordinateur le plus innovateur du marché. 

Celui dont sous tirera le maximum de plaisir. 

Avec XAtari 520 STF, vous allez de 
révélation en révélabon- 
Puissance formidalile avec une U.C de 520 Ko. 
Facilité (Tublisabon avec la souris et le système 
if exploitation GEM. 


Confort rf utilisation avec le mulüfenétrage. 
Performances paphiqucs excepbonndJes. 
Richesse d'une palette de 512 couleurs. 

Capacités sonores éclatantes et interface MIDI 
Bien d'autres révélations sous attendent aux 
commandes de sotre ordinateur. 

L Atari 520 STF, c'est le graphisme dans 
toute sa finesse, la couleur dans toute sa splendeur, 
la musique dans tout son édaL 

Créativité ou récréation, T Atari 520 STF, 
c'est la micro plaisir dans toutes scs dimensions. 


• IM PORTANT : Ne pourront être repris que les appareils accompagnés de leur prise péritel et du bloc alimentation de l'ordinateur. 
□ ATARI 520 STF + moniteur monochrome : 4990 F - 500 F .4490 F 

COMMENT COMMANDER : Je possède: O ORIC 1 DATMOS 

Cochet le|s) articlo(s) désiré(s) ou faites en une liste su! une leuille à part. - Faites le total -I- frais de poil (20 F peut achats inférieurs ë 500 F. 40 F de 500 è 1000 F. 60 F pour tout achat supitieur à 1000 F - 
80 F pour tout achat supérieur à 2000 F). 

NOM : _ PRÉNOM :_ TEL :- 

ADRESSE : ___CODE POSTAL : _VILLE : _ 


Mode de paiement : □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20. rue de Montreuil 94300 VINCENNES 


réseau r*TzT^Tf=m 
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D ans ce numéro de Théorie, nous effectuons, en collaboration avec ORIC Inter¬ 
national, une grande enquête dont le but est de mieux cerner /'utilisateur 
d'ORIC. H est indispensable que chacun fasse l’effort d'y participer : les nou¬ 
veaux produits, matériels et logiciels, qui verront le jour dans un futur proche ainsi que 
le contenu de la revue sont Taffaire de tous ! 

Pour stimuler les plus paresseux, ORIC International offre un TELESTRAT (ou l'équiva¬ 
lent en matériel ORIC) qui sera attribué à l'expéditeur d'un des bulletins tiré au sort. 
Il y aura également des livres et abonnements à Théorie à gagner ! 

Quant au sondage mensuel, pour tenir compte de vos remarques, nous avons fait en 
sorte que vous puissiez le découper sans perdre aucun article. Vous n 'avez plus aucune 
raison pour négliger de nous le renvoyer ! 


ORDIELEC 

19, rue Hippolyte Flandrin 
69001 LYON 
Tél. 78.27.80.17 

Par minitel de 12m 5 à I4h00 
et de I9h30 à lOhOO à ce même numéro 

SPÉCIALISTE ORIC 

Démonstration Telestrat 
en permanence 

Composante connectlque 
et cables. 

Compatibles IBM. 


COMMANDE ANCIENS NUMEROS 


(valable jusqu'à épuisement des stocks) 


Numéros 6à21 . 30 F pièce 

Numéros 11 (Hors Série), 22 et suivants .... 25 F pièce 

ATTENTION : NUMERO(S) EPUISE(S) : 1-2-3-4-5-8-9-14-26 
NOM .Prénom . 

Adresse . 

Code Postal .Ville . 


Frais de port : 7,10 F pour 1 revue 
10,30 F pour 2 revues 
14,60 F pour 4 revues 
21,00 F au-dessus 


|Ci-joint, chèque bancaire ou postal de 



5 
















DE Didier HUET 
18 AUBIGNY/NERE 


Après avoir appris à programmer en 
BASIC, j'aimerais m'attaquer à l'as¬ 
sembleur. Quels ouvrages me con¬ 
seilleriez-vous ? 

La programmation en assembleur 
est un peu plus délicate à assimiler 
que celle en BASIC. Les ouvrages 
sur ce sujet sont assez nombreux. 
Nous pourrions vous citer les titres 
suivants : 

- L'assembleur de l'ORIC ATMOS 
(PSI) ; 

- L'assembleur facile du 6502 
(Eyrolles). 

Ces 2 titres sont accessibles à des 
débutants. 

Ensuite, il faudra investir dans : 

- La programmation du 6502 
(Sybex) ; 

- Les applications du 6502 
(Sybex). 

Ces 2 ouvrages constituent "la réfé¬ 
rence" en ce qui concerne le 6502. 
Enfin, pour tirer au mieux parti de 
l'ORIC, il faudra se munirde l'ORIC à 
nu (SORACOM) où Fabrice BRO¬ 
CHE commente en détail les moin¬ 
dres mystères de la machine. 

DE Catherine COLLENO 
13 MARSEILLE 

Où puis-je me procurer le logiciel 
"TBD" présenté dans THEORIC 
n°21 ? 

Ce logiciel, assurant le tranfert auto¬ 
matique de cassette à disquette 
(sous SEDORIC) est commercialisé 
par EPVS/ICV - 130, route de Cor- 
beil - 91360 VILLEMOISSON SUR 
ORGE 

Tél. 1.69.04.04.50 


DE Pascal MICHARD 
31 TOULOUSE 

Où peut-on se procurer un catalo¬ 
gue complet présentant tous 
les logiciels existant sur ORIC ? 

A notre connaissance, un tel catalo¬ 
gue n'existe pas. Il y a bien sûr de 
gros diffuseurs (tels INNELEC ou 
GUILLEMOT) qui possèdent bon 
nombre de titres sur ORIC... mais 
qui ne vendent pas aux particuliers. 
Il y a aussi des boutiques (ORDI- 
VIDUEL, par exemple) qui conti¬ 
nuent à vendre des logiciels pour 
ORIC mais... sans catalogue. 

A la rentrée, en collaboration avec 
ORIC International, THEORIC pu¬ 
bliera une liste, aussi complète que 
possible, présentant tous les maté¬ 
riels et logiciels qui existent pour 
cette machine qui nous passionne. 

DE Christophe OUFAZA 
84 SAINT SATURNIN D’APT 

Existe t-il un livre, autre que le ma¬ 
nuel livré avec l'appareil, qui parle 
du SEDORIC? 

Non ! Le SEDORIC est un système 
d'exploitation puissant mais, à pari 
le manuel d'accompagnement et 
les quelques lignes que vous aurez 
pu lire dans THEORIC, il n'existe au¬ 
cune littérature à son sujet. 

En ce qui concerne la gestion de fi¬ 
chiers, il existe un ouvrage aux Edi¬ 
tions Radio qui s'appelle "Initiation 
aux Fichiers BASIC". Ce livre, pré¬ 
senté très clairement, permet de dé¬ 
marrer du bon pied dans l'utilisation 
des fichiers. Néanmoins, il reste un 
ouvrage général qui n'a rien à voir 
avec le SEDORIC... 


DE E. SAUNIER 

le 3 mai 1987 

Monsieur, 

Fidèle lecteur de votre journal, je 
tiens à vous féliciter pour l'intérêt 
d'un des programmes que je viens 
de trouver dans votre dernier nu¬ 
méro (31 -mai 87). 

Depuis des années, mes amis et 
moi, passionnés d'informatique et 
possesseurs d'ORIC ou ATMOS 
nous accumulons des disquettes 



et ensuite nous n'arrivions plus à 
retrouver des fichiers, aussi, nous 
nous sommes précipités sur le 
Librarian de Monsieur LETELLIER 
F., et après les moments toujours 
pénibles d'entrée des program¬ 
mes, 6 merveille ! Voilà enfin un pro¬ 
gramme digne de ce nom et qui tra¬ 
vaille rapidement (ce qui est remar¬ 
quable avec le 6502). 

S'il vous plaît encore de bons pro¬ 
grammes de ce genre réellement 
utiles plutôt que des jeux "bidons" 
plus ou moins copiés les uns sur 
les autres. 

Un grand coup de chapeau à ce 
Monsieur. 

E SAUNIER 

Voilà un auteur qui sera fier de voir 
son travail récompensé par vos com¬ 
pliments. Quant aux jeux, ne les ac¬ 
cusez pas injustement. Pensez aux 
débutants qui prennent plaisir à les 
taper et à tous ceux qui y décou¬ 
vrent des astuces, aussi simples 
soient-elles...C'est ainsi que l'on 
peut progresser ! 


AVEZ-VOUS 
LA COLLECTION 
COMPLÈTE 
DE THEORIC ? 


Bon de commande 
page 5 
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NON, LA MICRO FAMILIALE 
N’EST PAS MORTE ! 

OR IC International recherche tou¬ 
jours plus d'auteurs pour Télestrat 
et Atmos ou Oric-1+Microdisc. En¬ 
voyez nous vos programmes (ou 
passez nous voir à la Boutiqu'Oric), 
nous les éditerons s'ils en valent la 
peine. 

ORIC INTERNATIONAL 
RECHERCHE 

Des personnes capables d’effec¬ 
tuer des conversions de logiciels 
sur Microdisc et Télestrat, c'est-à- 
dire : 

- adaptation au joystick pour les 
versions Télestrat 

- protection des disquettes 

- adaptations ORIC-1 / Atmos 
dans le cas de logiciels n'existant 
que sur une des deux machines. 

Les personnes intéressées sont 
priées de contacter rapidement 
ORIC International. 

ORIC International - 39, rue Victor 
Massé-75009 PARIS. 

VOUS AVEZ REALISE 
UN SERVEUR 
SUR TELESTRAT ? 

Faites vous connaître. Envoyez un 
rapide descriptif (objet du serveur, 
configuration du système, horaires 
d'ouvertures, numéro de télépho¬ 
ne...) à ORIC International qui pour¬ 
ra l'inclure dans la liste des serveurs 
Télestrat, accessibles sur son pro¬ 
pre serveur... 

Télestrat au (1)4281 22 72. 

LE SERVEUR ORIC 
EN PLEINE MUTATION 

Le serveur ORIC International, ac¬ 
cessible 24 / 24 au (1) 42 81 22 72, 
4 lignes groupées (sur Télestrat 


bien sûr !) est en pleine mutation, 
pour devenir le point de rencontre 
des passionnés d’ORIC. 

Nouvelle BAL, liste des serveurs 
Télestrat, les nouveautés etc... 

BOUTIQU’ORIC, 

CA MARCHE ! 

De nombreux utilisateurs d'Oric 
sont déjà venus rendre visite au 39 
rue Victor Massé à PARIS, adresse 
de la boutique d'ORIC International. 
ORIC les encourage à venir encore 
plus nombreux, les dernières nou¬ 
veautés y sont en démonstration, 
et ils y trouveront à coup sûr les ré¬ 
ponses aux questions qu’ils se po¬ 
sent ! 

NOUVEAU PRODUIT 
CHEZ ORIC 

ORIC INTERNATIONAL annonce la 
sortie d'un nouvel ordinateur dédié 
à la gestion d'adresses et à l'édition 
de mailings. 

Sa principale originalité est en effet 
d'être capable de saisir automati¬ 
quement des adresses sur l’annu¬ 
aire électronique (le 11) et ce à un 
coût défiant toute concurrence. La 
saisie peut se faire par départe¬ 
ment, ville, mais aussi par région et 
même sur la France entière sans ma¬ 
nipulation supplémentaire ! 

Idéal pour informer votre clientèle... 
ou rechercher un fabricant dont 
vous ne connaissez pas le siège so¬ 
cial. 

ADRESSTEL (ordinateur se ser¬ 
vant du clavier et de l’écran du mini¬ 
tel) + 2 lecteurs de disquet- 
tes+gestion d’adresses+saisie auto¬ 
matique sur le 11 -«-édition de mai¬ 
lings. 



Pas d'étiquette 
abonné ou pas 
d'enveloppe self- 
adressée égale pas 
de réponse au 
courrier. Qu'on se 
le dise ! 



DES CLUBS 
ET DES 
SERVEURS 


LES CLUBS 

Microfer-Dijon 

Siège social : 

26, rue Léon-Mauris 
21000 Dijon 
Matériel : 

2 ATMOS + 1 GP 500A 
8 membres pour la section ORIC. 
Mais aussi des Amstradistes (10 
membres). 

Kes kon y fè ? 

Des cours d'initiation au BASIC, du 
perfectionnement au BASIC et de la 
programmation en Assembleur 6502 
et Z80. 

Réunions : les mercredis, de 18h à 
20h et jeudis, de 18h à 22h. 

RNUR-Le Mans 

CE Section Micro-Informatique 
(M. Ozan) : 

Allée du Spoutnik 
72000 LE MANS 
Matériel : 

5 ORIC-1 /ATMOS et 2 JASMIN 
(aussi AMSTRAD, TRS, IBM) et 
extensions diverses. 

Réunions : jeudis, de 1 7h à 1 9h et 
samedis, de 9h à 12h. 

LES SERVEURS 

Micro Data 

63 Chamalières 

Tél. : 73.36.88.65 après 17h. 

Du lundi au vendredi, de 8h à 1 7h 
(également activités club). 

Matic-58 

58 Pougues-les-Eaux 

Tél. : 86.68.81.87, de 19h à 20h. 


? 
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DUVEAUTES 


ADAPTATIONS DE 
LOGICIELS 

ORIC International annonce l'adap¬ 
tation sur Télestrat et ATMOS- 
+Microdisc de la plupart des logi¬ 
ciels Tansoft, Durell, Softek dont 
ORIC a racheté les droits. 

Les logiciels seront proposés sur 
disquettes Télestrat (adaptés aux 
joysticks) et sur disquettes pour 
ORIC-1 ou ATMOS avec MICRO- 
DISC. 

Les négociations sont en cours 
avec la plupart des autres éditeurs 
de logiciels. 

DERNIERE MINUTE 

Un contrat vient d'être signé entre 
l'éditeur français LORICIELS et 
ORIC International pour l'adaptation 
sur Télestrat et Microdisc de la plu¬ 
part des logiciels de leur (riche) cata¬ 
logue. 

Les logiciels suivants sont (ou se¬ 
ront sous peu) disponibles en cas¬ 
settes et disquettes pour ORIC-1 et 
ATMOS, et en disquettes pour Té- 
lestrat 

LE DIAMANT DE L’ILE MAUDITE, 
L'AIGLE D'OR, DOGGY, STAN¬ 
LEY,SUPER JEEP, 3D FONGUS, 
VORTEXT, LORITEL, 3D MUNCH, 
HU'BERT, LORIGRAPH, EDITEUR 
MUSICAL, LE MANOIR DU DOC¬ 
TEUR GENIUS, LE RETOUR DU 
DOCTEUR GENIUS, LOGO, FLIP¬ 
PER, STAR, JIMMY POOB, LE SE¬ 
CRET DU TOMBEAU. Ouf ! 

DEFENSE FORCE 

Le fleuron des logiciels de Tansoft, 
le fameux DEFENSE FORCE est 
désormais disponible sur disquette 
pour Télestrat ou Atmos/Oric-1 et 
Microdisc, ainsi bien sûr qu’en 
cassette pour ORIC-1 et ATMOS. 

Il s’agit d’un jeu d’arcade en plus de 
40 tableaux, servi par une anima¬ 
tion ultrarapide et haute en cou¬ 
leurs. Un jeu à posséder absolu¬ 
ment, la référence des jeux d’arca¬ 
de ! 


Prix disquette : 190 francs, casset¬ 
te : 40 francs 

UN NOUVEAU MICRODISC ! 

ORIC International annonce la sor¬ 
tie du Microdisc double face en rem¬ 
placement du Microdisc simple 
face. 

Pour seulement 200 francs de plus 
(2690 F au lieu de 2490 F) la capaci¬ 
té du lecteur est doublée, passant 
ainsi à 360 Ko (400 Ko selon le for¬ 
matage). 

Autre bonne affaire, ORIC Interna¬ 
tional offre pour tout achat d'un Mi¬ 
crodisc la transformation de votre 
Atmos en Atmos français (adapta¬ 
tion parfaite au lecteur de disquet¬ 
te, prise péritélivision auto-alimen- 
tée, chargement cassette amélioré 
etc.) 


HORLOGE TEMPS REEL 


L’horloge temps réel pour Téles¬ 
trat, Oric-1 et Atmos est disponible 
depuis quelques temps chez ORIC 
International au prix de 590 francs. 
Rappelons qu'il s'agit d'une horlo¬ 
ge sauvegardée par pile, program¬ 


mable très facilement, ce qui en fait 
le partenaire idéal de tous les ser¬ 
veurs. 

Signalons que l'horloge est pour 
l'instant incompatible avec le Micro¬ 
disc Atmos (mais fonctionne 
bien sûr parfaitement avec le Téles¬ 
trat !), ORIC étudie le problème, 
tenez-vous au courant ! 

Nous proposerons sous peu dans 
les colonnes de Théorie un pro¬ 
gramme exploitant quelques-unes 
des caractéristiques de ce petit 
boîtier. 

EXTENSION MIDI 

ORIC International annonce la 
sortie du boîtier extension midi. 

Pour 590 francs, l'utilisateur dispo¬ 
se d'un boîtier permettant 2 midi- 
out (dont un réparti sur 3 prises 
pour éviter les raccordements dou¬ 
teux), un midi-in et un midi-thru. 
(Voir schéma synoptique). 

Bien entendu, le boîtier intègre les 
isolations nécessaires aux syn- 
thés... et au Télestrat. 

Le boîtier est livré avec une notice 
et une disquette contenant des 
utilitaires permettant la programma¬ 
tion facile de l'interface en BASIC 
ou en assembleur. 
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ENQUETE LECTEURS 
THEORIC/ORIC INTERNATIONAL 


GAGNEZ UN TELESTRAT 
(ou son équivalent en périphériques ORIC) 
et de nombreux livres 

L'objet de ce sondage est, pour le constructeur Oric et 
pour la revue THEORIC, de mieux connaître les posses¬ 
seurs (et futurs possesseurs) de matériel ORIC. 

Ce sondage (surtout la partie consacrée à votre ordina¬ 
teur idéal) n'a de sens que si les réponses ne prennent 
en compte que les critères réellement déterminants. 

Il est évident que tout le monde voudrait 4 Mo de RAM, 
un 80386 à 20 MHz, une résolution de 512 par 800 en 
256 couleurs et un disque dur de 40 Mo, le tout pour 
3999 Francs! 1 | | 

Pour vous aider à répondre, 10 bulletins seront tirés au 
sort... Un TELESTRAT est en jeu, ainsi que de nom¬ 
breux livres. 


LE MATERIEL 

Possédez-vous un ordinateur 


OUI NON 


•Si OUI 

ORIC-1, ATMOS, MICRODISC, TELESTRAT, autres 

(précisez)--- 

-JASMIN T 0IOUI NON 

oV' 


- IMPRIMANTE 

- MICRODISC ESCLAVE 

- INTERFACE JOYSTC^k ^ 

- SOURIS ^ ^ 

- MODULATEUR N/B ou COULEUR 

SINON 

js d’acheter un ordinateur 
I, Lequel? 

STRAT, autres (précisez) 


Ul NON 
OUI NON 
I NON 
I NON 
OUI NON 


<pliquez pourquoi 


Si ATMOS ou ORIC-1 
Envisagez-vous d'acheter un Microdisc 
- Si OUI, pourquoi ? 

J'en ai marre des cassettes 
La gestion de ficli 
Utilis 

:isez) 

i NON, pourquoi ? 

Les cassettes me suffisent 


OUI NON 

OUI NON 
OUI NON 
OUI NON 


OUI NON 


Manque de logiciels sur disquette 
Trop cher, mon juste prix pour un Microdisc : 
1500 F-1750 F-2000 F 
Autres (précisez) 


Envisagez-vous 
d'acheter un Télestrat ? 

• Si OUI, pourquoi f 
-Télématique 

- Autant acheter un Télestrat 
qu'un Microdisc 

FlMbbI9 

- L'HYPER-BASIC 
-Le nouvel ORIC 
est toujours un événement 

- Prix intéressant 

- Autres (précisez) 


OUI NON 



OUI 

OUI 


NON 

NON 


• Si NON, pourquoi ? 

- Je n'ai pas besoin d'autre chose 

- Avant STRATORIC, 

la compatibilité n'était pas parfaite 
-Trop cher 

- Manque de logiciels 

- Manque de 

logiciels nouveaux sur Télestrat 

- J'ai des doutes sur l'HYPER-BASIC 

- Je vais acheter un autre ordinateur 

- La télématique ne m'intéresse pas 

- Autres (précisez) 


OUI 


NON 

NON 

NON 

NON 

NON 

NON 

NON 

NON 


qui vous intéressent pour ATMC 

- Des cartouches de jeux 

- Un data saver 

- Des caries d'E/S 

- Divers (précisez) 

Les problèmes que vous avez rencontrés 

- Chargement K7 du commerc 

- Chargement K7 personnell 

- Divers (précisez) 


NON 
Jl NON 
Jl NON 
)UI NON 


OUI 

OUI 


NON 

NON 


Les développeme 
qui vous Inté 

- 80 colonn 

- Plus de possibilités graphiques 
bilité vidéotex totale 

ier type IBM AZERTY 

- Système multivoies 
pour la TELEMATIC 

- Un HYPER-BASIC plus puissant 

- Divers (précisez) 


ur TELESTRAT 


OUI NON 
OUI NON 
OUI NON 
OUI NON 

OUI NON 
OUI NON 
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DEFINISSEZ L'ORDINATEUR IDEAL 


- Un synthétiseur de parole 


OUI NON 


Demain, vous êtes promu directeur de la ORIC Incorpo- 
rated (Organisme Recherchant des Informaticiens Com¬ 
pétents). Vous devez lancer l'ordinateur qui, en fin 
1988, fera de vous le premier constructeur d’ordinateur 
du monde et surtout de France. 

Choisissez ses caractéristiques. Le rêve deviendra 
peut-être réalité. 

Classez les différentes propositions de 1 à ... dans l'or¬ 
dre décroissant de vos préférences. 

• Un microprocesseur 16 bits 

est-il indispensable? OUI NON 

• La capacité mémoire minimale : 

64 Ko - 128 Ko - 512 Ko - 1 Mo 


2 Mo - indifférent 



• La présence de 

80 colonnes est indispensable 

OUI 

NON 

• La capacité graphique : 

-Trèshaute résolutionN&B 
-Trèshaute résolution 

OUI 

NON 

mais peu de couleurs (4 ou 8) 

OUI 

NON 

- Indifférent 

OUI 

NON 

• La compatibilité 

- ATMOS 

OUI 

NON 

-TELESTRAT 

OUI 

NON 

-PC 

OUI 

NON 

- ATARI 520 

OUI 

NON 

-MAC 

- Indifférent, du moment qu’il y a 

OUI 

NON 

des softs de qualité 

OUI 

NON 

• Le système d'exploitation 

- MS-DOS 

OUI 

NON 

- MS-DOS+GEM 

OUI 

NON 

- IBM-DOS 

OUI 

NON 

- Indifférent mais performant 

OUI 

NON 

• Les logiciels intégrés 

- BASIC 

OUI 

NON 

- FORTH PASCAL 

OUI 

NON 

- Intégré (style Lotus 1-2-3) 

• La mémoire de masse : 

3" - 3" 1/2 - 5" 1/4 - disque dur - cassette 

OUI 

NON 

• Les options 

- Un modem 

OUI 

NON 

- Serveur monovoie 

OUI 

NON 

- Serveur multivoies 

OUI 

NON 

- Interface midi 

OUI 

NON 

- Un synthétiseur de son génial 

OUI 

NON 


le prix que je serais décidé à mettre pour mon ordi¬ 
nateur idéal s'il répond aux caractéristiques que je viens 
de donner : - 


VOTRE REVUE THEORIC 

• Depuis quel numéro lisez-vous THEORIC ? - 

• Qu'attendez-vous de la revue ? - 

• Que pensez-vous de son équilibre actuel ? _ 

• Quel genre d'articles souhaitez-vous voir dévelop¬ 
pés? — 


• Utilisez-vous les services de la rédaction ? 

- Courrier 
-Téléphone 

- Minitel 

- Disquettes 

- Qu'en pensez-vous ? - 


OUI NON 
OUI NON 
OUI NON 
OUI NON 


• Etes-vous abonnés à THEORIC ? 
- Non, pourquoi ? - 


- Oui, êtes-vous satisfait ? - 

LECTEUR, QUI ETES-VOUS ? 


• Votre âge : - 

• Profession : - 

• Combien de temps consacrez-vous à la micro- 
informatique sur votre ORIC? — 

• Avez-vous créé des logiciels ? OUI NON 

- Si OUI, êtes-vous intéressé 

par une commercialisation OUI NON 

FACULTATIF 

ATTENTION ! Vos coordonnées sont indispensables 
pour participer au tirage au sort. 

Nom: - Prénom: - 

Adresse: - 

Téléphone : - 


A retourner à : Editions SORACOM - Grande enquête ORIC - La haie de Pan -35170 BRUZ 


X) 





























LE MODULATEUR 

UHF 



S I le téléviseur familial ne possède pas de 
prise PERITEL, si l'on ne veut pas en 
changer et., si acheter un moniteur 
semble superflu, Il ne reste plus qu'une solu¬ 
tion : investir dans un modulateur UHF. 


L'ORIC ne permet pas, à l'origine, 
d'être connecté directement sur la 
prise antenne d'un téléviseur. Les 
anciens ORIC, de fabrication an¬ 
glaise, pouvaient être modifiés (... à 
condition de savoir souder correcte¬ 
ment) ; les nouveaux devront être 
utilisés avec un modulateur exté¬ 
rieur. L'ORIC produit des signaux 
"vidéo" qui ne peuvent être ex¬ 
ploités que par un moniteur ou un 
téléviseur muni d'une entrée du mê¬ 
me nom. Si l’on se contente d'une 
image Noir et Blanc, on pourra uti¬ 
liser un téléviseur par son entrée an¬ 
tenne via, un modulateur UHF. 

Le modulateur UHF est un appareil 
qui, à partir du signal vidéo, produit 
un signal tombant dans la bande de 
fréquences utilisables par le télé¬ 
viseur. Ainsi, le modulateur UHF 
ORIC génère un signal dont la fré¬ 
quence correspond au canal 36. 
Physiquement, c'est une petite 
boîte aux couleurs de l’ORIC, qui 
vient se connecter sur la sortie vi¬ 
déo (RVB) de l'ORIC et sur l'entrée 
antenne (UHF) du téléviseur. Si le 


n assurant la liaison modula¬ 
teur/téléviseur est standard, il n'en 
est pas de même pour celui allant 
de l’ORIC au modulateur et il faudra 
préciser, à l'achat, ATMOS ou TE- 
LESTRAT. Dans le cas du TELES- 
TRAT, l'alimentation du modulateur 
passe par le cordon vidéo. Pour 
l'ATMOS, il faudra raccorder le 
modulateur à une source d'alimen¬ 
tation externe, capable de fournir 
entre 6 et 12 V. Attention, de la qua¬ 
lité de cette alimentation va dépen¬ 
dre celle de l'image obtenue sur le 
téléviseur. 

Les branchements étant effectués, 
il ne reste plus qu'à mettre sous 
tension le modulateur (au moyen 
de l'inverseur à bascule dont il est 
doté) et à rechercher l'image sur le 
téléviseur, grâce à sa commande 
de fréquence (aux environs du ca¬ 
nal 36). Une petite critique à ce su¬ 
jet : il aurait été souhaitable de pré¬ 
voir un orifice, sur le boîtier du mo¬ 
dulateur, pour en décaler légère¬ 
ment la fréquence d'oscillation sans 
avoir à dévisser le couvercle. En ef¬ 
fet, dans certaines régions, le canal 
36 est déjà utilisé par un émetteur 
de télévision et l'interférence ainsi 
produite rendra l'image du modula¬ 


teur inexploitable. Si vous êtes 
dans ce cas, une seule solution : 
décaler légèrement la fréquence 
du modulateur en déplaçant la "vis" 
qui apparaît, dans le boîtier métal¬ 
lique, fixé sur le circuit imprimé. 
L'image obtenue sur l'écran du télé¬ 
viseur est de qualité légèrement 
inférieure à celle qui résulte de la 
sortie vidéo. L'oeil averti (qui en 
vaut deux, celà va de soi... ) décé¬ 
léra une perte de définition qui ren¬ 
dra les tracés un peu plus flous. Le 
soin apporté au réglage en fré¬ 
quence du téléviseur est égale¬ 
ment déterminant. Les nuances de 
gris sont respectées. 

En conclusion, on pourra dire que 
ce modulateur constitue un achat 
intéressant pour tous ceux qui ne 
veulent pas investir dans un moni¬ 
teur et qui préfèrent utiliser le télé¬ 
viseur familial, dépourvu de PERI- 
TEL, ou un téléviseur récupéré 
dans un grenier... 







L 


Bruno BOUCHAUD 


e LOGO est un langage qui a été développé par Seymour Paper! et son 
groupe du MIT (Massachusetts Instituteof Technology) en 1968. Nous 
vous présentons une adaptation très libre du LOGO qui ne reprend que 
quelques lignées et vous permettra, à l'aide de 17 instructions, de faire des des¬ 
sins assez facilement. 




Vous programmez en mode direct, 
c'est-à-dire que les instructions sont 
exécutées aussitôt. Voici l'inventaire 
et les explications des différentes 
instructions à votre disposition. 

— AFFICHE DEGRE : affiche 
l'orientation du curseur en degrés 

0 = > nord 
90 = > est 
180 = > sud 
270 = > ouest 

— AVANCE n : avance de n pixels. 

— CERCLE n : trace un cercle de 
rayons de n pixels. 

— CHARGE NN : charge le pro¬ 
gramme LOGO appelé NN. 

— COLORE : 

Colore papier NN colore le papier de 
la ligne de la couleur NN. 

Colore encre NN colore l'encre de la 
ligne de la couleur NN. 

NN représente ici les couleurs dont 
vous disposez : noir, rouge, vert, 
jaune, bleu, magenta, cyan, blanc. 

— DETRUIT : détruit le programme 
en mémoire et efface l'écran. 


— DROITE n : tourne vers la droite 
de n degrés. 

— EFFACE : efface l'écran. 

— ENCRE NN : colore l'encre de 
tout l'écran de la couleur NN. 

— EXECUTE : lance le programme 
en mémoire. 

— FIN : indique la fin d'un pro¬ 
gramme. OBLIGATOIRE. 

— GAUCHE n : tourne à gauche de 
n degrés. 

— LISTE : listing du programme 
LOGO a l'écran. 

— LISTE IMPRIMANTE : listing du 
programme LOGO sur une impri¬ 
mante quelconque. 

— MODE NN : 

Mode écris 
Mode efface 
Mode survole 
Mode inverse 

— PAPIER NN : colore le fond de 
tout l'écran de la couleur NN. 


— SAUVEGARDE NN : sauvegarde 
le programme appelé NN. 

Il y a deux messages d'erreur : 

ERREUR DE SYNTAXE et VALEUR 
IMPOSSIBLE. 

Après avoir tapé le programme 
BASIC, lancez-le par RUN. Vous 
voyez une flèche (ou tortue) appa¬ 
raître ainsi qu'un "?" indiquant que 
l'ordinateur attend vos ordres. 
L'orientation de la flèche est de 
0 degré = > nord. 

Tapez vos instructions de program¬ 
mation l'une après l'autre. A chaque 
ordre, l'ordinateur l'exécute et le 
stocke en mémoire à partir de 
l'adresse 3000. En mémoire, les ins¬ 
tructions sont séparées par et la 
fin du programme par 
Vous trouverez ci-après 2 exemples 
de programmes LOGO qui vous aide¬ 
ront à faire vos premiers pas. Dès 
que vous serez expérimentés, n'hé¬ 
sitez pas à faire parvenir vos meil¬ 
leurs travaux à THEORIC... Ne l'ou¬ 
bliez pas, le LOGO est un langage 
facilement assimilable par les 
enfants. Le programme fonctionne 
indifféremment sur ORIC 1 ou 
ATMOS. 


12 










Exemple 1 

DROITE 180:MODE EFFACE:AVANCE 15:GAUCHE 90:AVANCE 10:DROITE 
180:MODE ECRISrAVANCE 20:DROITE 90:AVANCE 20:DR0ITE 45:AVANCE 
1 1 :DROITE 90:AVANCE 11:DROITE 45:AVANCE 20:DR0ITE 135:AVANCE 
20:DROITE 135:AVANCE 20:DROITE 135:AVANCE 20 


Exemple 2 

AVANCE 2:DROITE 90:AVANCE 2:DR0ITE 90:AVANCE 4:DROITE 90:AVANCE 
4:DROITE 90.AVANCE 6:DROITE 90:AVANCE 6:DROITE 90:AVANCE 8:DROITE 
90:AVANCE 8:DROITE 90:AVANCE 10:DR0ITE 90.AVANCE 10:DROITE 
90:AVANCE 12:DROITE 90:AVANCE 12:DROITE 90:AVANCE 14:DROITE 
90:AVANCE 14:DROITE 90:AVANCE 16: DROITE 90:AVANCE 16:DROITE 
90:AVANCE 18:DROITE 90:AVANCE 18:DROITE 90:AVANCE 20:DROITE 
90:AVANCE 20:DR0ITE 90:AVANCE 22:DROITE 90:AVANCE 22:DROITE 
90:AVANCE 24:DROITE 90:AVANCE 24:DROITE 90.AVANCE 26:DROITE 
90.AVANCE 26:DROITE 90.AVANCE 27 



10 REM *4 XXXXXXXXXXXXX **XXXXXXXX 
20 REM ******* MI NI-LOGO ******* 

30 RRM X X X X X X X X X X X X X X X X X X X X. X X X X X 
40 REM *** de BOUCHAUD Bruno XXX 
50 REM XXXXXXXXXXXXXXXXXXXXXXXXX 
eO REM XXXXXXXX THEORIC ******** 

70 REM XxXXXXXXXXXXXXX ********** 

GO G0SUB2720 
70 H.1 MEM#4000 

100 f>E=0 : XX=-3 : YY = 0 : CA=65 : ST = #3000 : RE 
= 160 

110 X1=120:Y1=0:MO=1 

120 CLS:PAPER7: INKO: H1RES :PAPER7: INKO 

130 X=120 :Y=100 

140 CURSETX + XX,Y + Y Y , 3 

150 CHARCAR,1.2 

160 INPUTO* 

170 1PO* = "AFFICHE DEGRE"THENPR1NTDE: G 
OTORE 

180 I Fût = "F IN 11 THEN2090 
190 IFLEFT*<0$,4)="MODE"THEN380 
200 IFLEFT*(0$, 6 ) ="AVANCE"THEN490 
210 IFLEFT*<0$,6)="DROITE"THEN700 
220 IFO* = "DETRUIT"THEN2150 
230 IFLEFT*(0$,6)="GAUCHE"THEN1040 
240 IFLEFT*(O*,6>="CERCLE"THEN1380 
250 IFLEFT*(O*,6)="COLORE"THEN1470 
260 IFLEFT*(O*, 6 ) ="PAPIER"THEN1590 
270 IFLEFT*(O*,5>="ENCRE"THEN1670 
280 IFLEFT*(O*,10)="SAUVEGARDE"THEN17 
50 

290 IFLEFT*(O*, 6 ) = "CHARGE"THEN1810 
300 IFO* = "EFFACE"THEN1880 
310 IFO* = ÜLISTE"THEN2250 
320 IFO* = "LISTE IMPRIMANTE"THEN2370 
330 I FO * = "EXECUTE"THEN1950 
340 PRINT:PR INT"ERREUR DE SYNTAXE" : PR 
INT 


350 GOTORE 

367 PR1 NT : PRINT"VALEUR IMPOSSIBLE" 
370 GOTO160 
380 : 

390 REM MODE 

40 0 : 

410 G*=MID*(O*,6,LEN(O*)-5 ) • 

420 IFC* = "ECRIS"THENMO=1 :GOTO470 
4 30 I FC * = "EFFACE"THENMO= 0 :G0T04 7 0 
440 IFC* = "SURVOLE"THENMO=3:G0T04 70 
450 IFC*="INVERSE"THENMÜ=2:GOTO470 
460 GOTO340 

470 IFRE=160THENGOSUB2610 
480 GOTORE 
470 : 

500 REM AVANCE 
510 ! 

520 CHARCA,1,2 

530 C* =MID*(O*,8,LEN(O*)-7) 

540 1 FVAL(C*)=0THENGOTO340 
550 AV=VAL < C * » 

560 DX=(Xl-Xl/100:DY =(Y1-Y)/100 

570 FOR1=1TOAV 

580 X2=X2+DX:Y2=Y2+DY 

590 IFX + X2 <OORX + X2> 239THEN360 

600 1FY+Y2 < OORY + Y2>199THEN360 

610 CURSETX+INT< X2),Y+1NT<Y2),MO 

620 NEXTI 

630 X=X+INT<X2):Y=Y+INT<Y2) 

640 XI=X1 + INT< X2) : Y1=Y1 + INT(Y2) 

650 X2=0;Y2=0 

660 CURSETX+XX,Y+YY,3 

670 CHARCA,1,2 

680 IFRE=160THENGOSUB2610 

690 GOTO RE 

700 : 

710 REM DROITE 
720 : 

730 CHARCA,1,2 
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740 C$=MID$(0$,8.LEN(0$)-7) 

750 I FVAL < Ci )=0THEN34 0 
760 VA=VAL (Ci ) 

770 IFDE>135ANDDE<=315THENVA=-VA 
780 IFDE> 3150RDE< = 45THEN820 
790 IFDE> 45ANDDE < =135THEN850 
800 IFDE> 1 35ANDDEO225THEN880 
810 GOTO910 

820 XI=X1+VA*2.22222222 
830 IFX1>X+100THENY1=Y1+X1-X-100 : X1=X 
+100:GOT0860 
840 GOT0930 

850 Y1=Y1+VA*2.22222222 
860 IFY1> Y+1OOTHENX1=X1-Y1+Y+100:Y1=Y 
+ 100 :GOT0890 
870 GOTO930 

880 X1=X1+VA*2.22222222 
890 IFX1<X-1OOTHENY1=Y1+X1-X+100 : X1=X 
-100:GOTO920 
900 GOTO930 

910 Y1=Y1+VA*2.22222222 
920 IFY1<Y-1OOTHENX1=X1-Y1+Y-100:Y1=Y 
-100:GOT0830 

930 IFRE=160THENGOSUB2610 
940 IFVA <OTHENDE = DE-VA:GOTO960 
950 DE=DE+VA 

960 IFDE> 359THENDE=DE-360 
970 1FDE> 45ANDDE<=135THENCA=67:XX = -6: 
YY=-3 

980 IFDE>135ANDDE<=225THENCA=66:XX=-3 
:YY=-7 

990 IFDE> 225ANDDE< = 315THENCA = 68: XX=1 : 
YY = -3 

1000 IFDE> 3150RDE< = 45THENCA = 65 :XX=-3 : 
YY = 0 

1010 CURSETX+XX,Y+YY,3 
1020 CHARCA,1,2 
1030 GOTO RE 
1040 : 

1050 REM GAUCHE 
1060 : 

1070 CHARCA,1,2 

1080 Ci=MIDi(0i,8,LEN(0$)-7) 

1090 IFVAL( Ci )=0THEN340 
1100 VA=VAL(Ci) 

1110 IFDE> 3150RDE<=135THENVA = -VA 
1 120 IFDE> 3150RDE<=45THEN1160 
1130 1FDE>45ANDDE<=135THEN1190 
1140 IFDE>135ANDDE < = 225THEN1220 
1150 GOTO1250 

1160 XI=INT(XI+VA*2.22222222) 

1170 IFX1<X-1OOTHENY1=Y1-X1+X-100 : X1 = 
X-100:GOT01260 
1180 GOTO1270 

1190 Y1=INT(Y1+VA*2.22222222) 

1200 IFY1<Y-1OOTHENX1=X1+Y1-Y+100:Y1= 
Y-100I GOTO1170 
1210 GOTO1270 

1220 XI=INT<XI+VA*2.22222222) 


1230 IFX1>X+1OOTHENY1=Y1-X1+X+100 : XI = 
X+100:GOT01200 
1240 GOTO1270 

1250 Y1=INT(Y1+VA*2.22222222) 

1260 IFY1>Y+1OOTHENX1=X1+Y1-Y-100:Y1= 
Y+100 G0T01 230 
1270 IFRE=160THENGOSUB2610 
1280 IFVA <0THENDE=DE + VA:G0T01300 
1290 DE=DE-VA 
1300 IFDE <0THENDE=360 + DE 
1310 IFDE> 45ANDDE<=135THENCA = 67:XX=-6 
:YY=-3 

1320 IFDE>135ANDDE<=225THENCA=66:XX=- 
3 :YY=-7 

1330 IFDE> 225ANDDE< = 315THENCA = 68 : XX= 1 
:YY=-3 

1340 IFDE> 3150RDE< = 45THENCA = 65IXX = -3I 
YY = 0 

1350 CURSETX+XX,Y+YY,3 
1360 CHARCA,1,2 
1370 GOTO RE 
1380 : 

1390 REM CERCLE 
1400 : 

1410 Ci=MI Di(Oi,B,LEN( Oi)-7) 

1420 G=VAL(Ci) 

14 30 CURSETX,Y,3 :CIRCLEC,M0 
1440 CURSETX+XX,Y+YY,3 
1450 IFRE=160THENGOSUB2610 
1460 GOTORE 
1470 : 

1480 REM COLORE 
1490 : 

1500 CHARCA,1,2 

1510 Ci=MIDi(Oi,8,LEN(Oi)-7> 

1520 IFLEFTi(Ci,5)="ENCRE"THENCi=MIDi 
(Ci,7,LEN(Ci)-6):AD=0:GOTO1550 
1530 IFLEFTi(Ci,6) = "PARI ER"THENCi=MIE 
i(Ci,8,LEN(Ci)-7) :AD=16: GOTO1550 
1540 GOTO340 
1550 GOSUB2490 
1560 FILL1,1,CO+AD 
1570 IFRE=160THENGOSUB2610 
1580 CURSETX,Y,3:GOTO RE 
1590 : 

1600 REM PAPIER 
1610 : 

1620 Ci=MIDi(Ot,8,LEN(Oi)-7) 

1630 GOSUB2490 
1640 PAPERCO 

1650 IFRE=160THENGOSUB2610 
1660 GOTO RE 
1670 : 

1680 REM ENCRE 
1690 : 

1700 Ci=MIDi(Oi,7,LEN(Oi)-6) 

1710 G0SUB2490 
1720 INKCO 

1730 IFRE=160THENGOSUB2610 
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1740 GOTO RE 
1750 : 

1760 REM SAUVEGARDE 
1770 : 

1780 C*=MID$<0$,12,LEN<0*)-l1) 

1790 GSAVECi,A#3000,EST 
1800 GOTORE 
1810 : 

1820 REM CHARGE 
1830 : 

1840 C*=MID$(0$,8,LEN<0$)-7) 

1850 CLOADCt 
1860 GOTORE 
1870 : 

1880 : 

1890 REM EFFACE 
1900 : 

1910 HIRES:PAPER7:INKO 
1920 IFRE=160THENGOSUB2610 
1930 CURSETX,Y,3;CHARCA,1,2 
1940 GOTO RE 
1950 : 

1960 REM EXECUTE 

1970 DE=0:XX=-3:YY=0:CA=65: XI = 120 :Y1 = 
0 :MO=1 :X=120 :Y=100 
1980 HIRES :PAPER7: INKO 
1990 RE=2010 

2000 DD=#3000: IFPEEK(#3000)=96THENGOT 
02080 

2010 0$ = "": II=DD:REPEAT 
2020 DD=DD+1 

2030 UNTILPEEK(DD)=580RPEEK < DD)=96 
2040 DD=DD+1 

2050 FORU=IITODD-2:0$=0$+CHR$(PEEK(U) 
) : NEXT 

2060 IFPEEK<DD-1)=96THENRE=2080:GOTOl 
70 

2070 GOTOl70 

2080 RE=160 : PRINT :PRINT"FIN D'EXECUTI 
ON" : GOTO160 
2090 : 

2100 REM FIN 
2110 : 

2120 POKEI,96 

2130 IFRE=160THENGOSUB2610 
2140 GOTORE 
2150 : 

2160 REM DETRUIT 

2170 : 

2180 FORI=#3000TOST:POKEI,#55:NEXT 
2190 ST=#3000 
2200 POKE#3000,96 
2210 HI RES :PAPER7: INKO 

2220 X=120:Y=100::X1=120:Y1=0:DE=0:CA 
= 65 :XX = -3:YY=0:MO=1 
2230 CURSETX+XX,Y + YY,3 :CHARCA,1,2 
2240 GOTORE 
2250 : 

2260 REM LISTE 


2270 : 

2280 TEXT 
2290 II=#2FFF 
2300 REPEAT 
2310 11=11+1 

2320 PRINTCHRi(PEEK(II)); 

2330 K$=KEY$ 

2340 UNTILPEEK!II)=96 OR <K$ = " ") 

2350 IFK$ = " "THENGETA*:GOT02300 
2360 GETA*:HIRES:PAPER7: INKO:CURSETX + 
XX,Y + YY,3 :CHARCA,1,2:GOTORE 
2370 : 

2380 REM LISTE IMPRIMANTE 
2390 : 

2400 II=#2FFF 
2410 REPEAT 
2420 11=11+1 


2430 LPRINTCHRi(PEEK(II)); 

2440 K*=KEY$ 

2450 UNTILPEEK!II)=96 OR <K*=" ") 

2460 IFK$ = " "THENGETA*:GOTQ2410 
2470 LPRINT 

2480 HIRES:PAPER7 ! I NKO : CURSETX + XX, Y + Y 
Y ,3 : CHARCA ,1,2: GOTORE 
2490 : 

2500 REM COULEURS 


2510 


2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 


IFCi="NOIR"THENCO=0:RETURN 
IFCi = "ROUGE"THENCO=1 :RETURN 
IFC t = "VERT"THENCO= 2 :RETURN 
IFC $ = "JAUNE"THENCO= 3 :RETURN 
IFC t = "BLEU"THENCO=4 :RETURN 
IFC$="MAGENTA"THENCO=5 :RETURN 
IFCt ="CYAN"THENCO=6:RETURN 
IFCi = "BLANC"THENCO = 7 :RETURN 
POP :GOTO340 


2620 REM STOCKE 


2630 : 

2640 FORI=ST TO ST+LEN<0*)-1 

2650 POKEI,ASC(MIDt(0$,I-ST+1,1)) 

2660 NEXTI 

2670 POKEI,58 

2680 ST=ST+LEN(0$)+1 

2690 RETURN 

2700 STOP 

2710 : 

2720 REM REDEFINITION DES CARACTERES 


2730 : 

2740 FORI=47624T047655 
2750 READA:POKEI,A:NEXTI 
2760 RETURN 
2770 : 


2780 REM DATA DES CARACTERES 


2790 : 

2800 DATAO,4,14,31,4,4,31,0 
2810 DATAO,31,4,4,31,14,4.0 
2820 DATAO,36,38,63,38,36,0,0 
2830 DATAO,9,25,63,25,9,0,0# 
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Dany BOSC 


L a célèbre machine des salles de jeux vient envahir vos écrans. 
Nous n'avlons jamais publié, jusqu'à ce jour, de jeu simulant 
une machine à sous... Nous ne le regrettons pas, car celul-cl est 
vraiment super ! L'auteur a soigné présentation, son, harmonie des 
couleurs et graphisme. SI vous gagnez beaucoup d’argent avec cette 
machine, pensez-à lui ! 


Le programme contient une routine 
en langage machine : saisissez-en 
les données en accordant le maxi¬ 
mum de soin à votre travail. 


Comment saisir et charger le 
programme 

Taper d'abord le listing BASIC. 
Ligne 13, changez le ILOAD en 
CLOAD si vous utilisez un magnéto¬ 
phone. 

Sauvegarder ce premier program¬ 
me sous le nom "JACKPOT". Il fau¬ 
dra alors se préocupper du langage 
machine. Les octets correspon¬ 
dants ont été mis en DATA. A cau¬ 
se de la longueur, il y a 2 listings (la 


partie en L.M. occupe en effet de # 
6D9E à#97FF). 

Taper le listing n° 1. Effectuer une 
sauvegarde, sur une cassette diffé¬ 
rente de celle où se trouve "JACK¬ 
POT", par CSAVE "JPr. 

Faire RUN et, s'il n'y a pas d'erreur 
(auquel cas, vous les corrigerez) 
CSAVE "JP1.BIN", A# 6D9E, E# 
897D. Couper et rétablir l'alimen¬ 
tation de l'ORIC. 

Taper le listing n° 2. Même remar¬ 
que en ce qui concerne la sauve¬ 
garde sous le nom "JP2". 

Faire RUN et, s'il n'y a pas d'erreur, 
CSAVE "JP2.BIN", A# 897E, E# 
97FF. (Sauvegarder à la suite de 
"JP1.BIN"). Couper et rétablir l’ali¬ 


mentation de l'ORIC. 

Taper HIMEM#6CFF 

CLOAD "JP1.BIN", pour charger la 

1ère partie du L.M. 

CLOAD "JP2.BIN", pour charger la 
2e partie du L.M. 

Reprendre la cassette sur laquelle 
se trouve "JACKPOT" et position¬ 
ner la bande après le programme. 
Taper CSAVE "JP.BIN", A# 6D9E, 
E#.97FF. 

Voilà ! A chaque fois que vous 
chargerez JACKPOT, après avoir 
fait RUN, le programme chargera la 
partie binaire qui suit... 

Pour le BASIC, rien à dire ! Le mo¬ 
de d'emploi vous sera dicté par le 
programme... 

Amusez-vous bien ! 
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1 REM JACK-POT 

2 REM 

3 REM Dany BOSC 

4 REM 
10 : 

11 HIMEM#6000:PAPERO: INK7:CLS 

12 HIRES:POKE#26A,10 

13 IFPEEK<#CACA)=#C9THENOA=0:CLOAD"JP 
.BIN":G0T021 

14 DOKEO,DEEK(#9C) 

15 POKE#35,O :POKE#67,0 :CALL#E6CA:CALL 
#E4A8:CALL#E804 

16 DOKE#9C,DEEK(0) 

17 OA=-l:CALL#6D9F 

18 : 

19 REM PRESENTATION 

20 : 

21 Z=11:SD=0:CALL#86AF 

22 CALL#6DF6:GALL#8D6A 

23 : 

24 FORT=0TO800:NEXT 

25 FORI=0TO30 

26 CALL#8D0E 

27 IFPEEK(#208)=#8DTHEN35 

28 IFPEEK<#208>=#81THEN112 

29 î FPEEK(#208)=#A9THEN225 

30 FORT=OTO(60-1*2):NEXTT,I 

31 G0T024 

32 : 

33 REM INSTRUCTIONS 

34 : 

35 CALL#8D7B 

36 GOSUB97 

37 T$="SALUT LES FLAMBEURS":CURSET54, 
54,3:LO=19 

38 GOSUB99 

39 CURSET24,32,3:FILL30,1,3 

40 T$="Certes vous venez de":CURSET66 
,54,3:L0=20:GOSUB93 

41 T$="faire l'acquisition d'une":CUR 
SET42,54,3:LO=25:GOSUB93 

42 T$="machine a sous prohibee;":CURS 
ET42,54,3:LO=24:GOSUB93 

43 T$="mais rassurez vous, sans":CURS 
ET42,54,3:LO=24:GOSUB93 

44 T$="enfreindre la loi, vous“:CURSE 
T42,54,3!LO=23!GOSUB93 

45 T t = " a 1 lez faire for tuneCURSET 
42,54,3:LO=22:GOSUB93 

46 FOR 1 = 1TO30:CALL#8CD5:NEXT 

47 T$="En effet il est bien":CURSET66 
,54,3:LO=20:GOSUB93 

48 Tl="connu que moins l'on mise":CUR 
SET42,54,3:LO=25:GOSUB93 


49 T*="et plus l'on gagneCURSET4 
2,54,3:LO = 21 :GOSUB93 

50 FORI=1T030:CALL#8CD5:NEXT 

51 CURSET30,54,3 : FILL8,1,7 :CURSET150, 
54,3:FILL8,1,1 

52 T$="Pour miser utilisez SHIFT G.": 
CURSET36,54,3;LO=28:GOSUB93 

53 CURSET30,54,3:FILL8,1,7:CURSET150, 

54.3 :FILL8,1,1 

54 T$="Pour jouer utilisez SHIFT D.": 
CURSET36,54,3:LO=28:GOSUB93 

55 CURSET30,54,3:FILL8,1,2 :CURSET72,5 

4.3 : FILL8,1,7 

56 T$="ESCAPE pour revenir au basic": 
CURSET36,54,3:LO=28:GOSUB93 


57 FORI=1T022:CALL#8CD5:NEXT 

58 CURSET30,54,3 : FILL4,1,7:FILL4,1 ,5 

59 Tt = "LES COMBINAISONS GAGNANTES":CU 
RSET42,54,3:LO=26:GOSUB93 

60 CURSET30,54,3 : FILL4,1,7:FILL4,1, 

61 T$="SE DETERMINENT":CURSET80,54, 
LO=14IGOSUB93 

62 CURSET30,54,3:FILL4,1,7:FILL4,1,5 

63 T $ = "A PARTIR DE LA GAUCHE":CURSET6 


0,54,3:LO=21 ;GOSUB93 
6 4 FORI = 1 TOI 4 :CALL#8CD5:NEXT 

65 CURSET30,54,3 : FILL8,1,2 :CURSET36,5 
4,3 : FILL8,1,12 

66 CURSET72,54,3 : FILL8,1,7 :CURSET78,5 
4,3:FILL8,1,8 

67 Ti = "C 5 ] - Motifs identiques " : C 



URSET42,54,3:LO=27:GOSUB93 

68 CURSET30 ,54,3: FILL8,1,7 ;CURSET102, 
54,3 : FILL8,1,2 :CURSET126,54, 3 :FILL8,1, 
7 

69 T$="rapportent 300 fois la mise":C 
URSET42,54,3:LO=27:GOSUB93 ► 
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70 FOR1 = 1TO14 :CALL# 8CD5:NEXT 

71 CURSET30 54,3 : FILL 8 ,1,1 :CURSET36,5 

4,3 ! FILL 8 ,1,12 

72 CURSET72,54,3:FILL8,1,7 :CURSET78,5 
4,3I FILL 8 ,1 ,8 

73 Tt = "C 4 3 - Motifs identiques" :C 

URSET42,54,3:LO=27:GOSUB93 

74 CURSET30,54,3:FILL8,1,7:CURSET102, 
54,3:FILL 8 ,1,1 :CURSET126,54,3 : FILL 8 ,1, 
7 

75 T$="rapportent 100 fois la mise":C 
URSET42,54,3:LO=27:GOSUB93 

76 FOR1 = 1TO14 :CALL# 8CD5:NEXT 

77 CURSET30,54,3 : FILL 8 ,1,3 :CURSET36,5 

4,3 : FI LL 8 ,1,12 

78 CURSET72,54,3:FILL8,1,7 :CURSET78,5 

4.3 :FILL 8 ,1,8 

79 Tt = "C 3 3 - Motifs identiques" :G 

URSET42,54,3:LO=27:G0SUB93 

80 CURSET30,54,3 : FILL 8 ,1,7 :CURSET102, 

54.3 :FILL 8 ,1,3:CURSET120,54,3 :FILL 8 ,1, 
7 

81 T$="rapportent 20 fois la mise":CU 
RSET42,54,3:LO=26:G0SUB93 

82 FORI = 1 TOI 4 :CALL#8CD5:NEXT 

83 CURSET30,54,3 : FILL 8 ,1,5 :CURSET36,5 

4.3 : FILL 8 , r, 12 

84 CURSET72,54,3 :FILL 8 ,1 ,7 :CURSET78,5 

4.3 :FILL 8 ,1,8 

85 T$ = "C 2 3 - Motifs identiques" : C 

URSET42,54,3:LO=27:GOSUB93 

86 CURSET30,54,3 : FILL 8 ,1,7:CURSET102, 

54.3 :FILL8,1,5:CURSET114,54,3 :FILL 8 ,1, 
7 

87 T$="rapportent 5 fois la mise":CUR 
SET42,54,3:LO=25:G0SUB93 

88 FORI= 1 T022:CALL#8CD5:NEXT 

89 T$ = "BONNE CHANCE" :CURSET72,54,3 :L 
0=13 

90 G0SUB99 

91 G0T022 

92 : 

93 F0RL=1TOLO:CHARASC(M IDt(T$,L,1)),0 
,1 :CURMOV 6 ,0,3:NEXT 

94 FORT=lTO600:NEXT 

95 FORI=1T08:CALL#8CD5:NEXT 

96 RETURN 

97 FOR1=61T032STEP-1 :CURSET24,I,3:FIL 
L1,30,64 :NEXT 

98 RETURN 

99 FORL=lTOLO:CHARASC(MID$(T$,L,1)),0 
1 !CURM0V7,0,3 

100 FORT=1TO20:NEXTT,L 

101 C=1 

102 F0RY=54T032STEP-1 

103 CURSET24,Y,3 : FILL 8 ,1,C:FORT=1T020 
!NEXTT 

104 C=C+1:IFC=5THENC=1 

105 FORT=1 TOI 0 :NEXTT 


106 CALL#8CD5:NEXTY 

107 FORI=1T06:CALL#8CD5:NEXT 

108 RETURN 

109 : 

110 REM JEU 

ni : 

112 CALL#8D7B:CURSET150,124,3:FILL56, 
1,12 

113 GOSUB97: T* = "MISE :"+CHR*(7)+ "0": PO 
KE#2C0,2 

114 PLOT1+OA,25,CHR$<10)+ CHR* <1)+ T*:P 
LOT1+OA,26,CHR* <10)+CHR$(3)+ T* 

115 POKE#2C0,3 :CALL#8DF9:CALL#8C75 

116 REPEAT 

117 PLAY1,0,1 ,80 : SOUND 1,PEEK(#276)+20 
,0 

118 UNTILPEEK(#209)=#A4 

119 CALL#8D7B 

120 MI =0 

121 MI$=MID$ < STR$ <MI), 2, LEN(STR* < MI)) 

) 

122 IFLEN(MIi)<2THENMI $ =MI * + " "îGOTOl 
22 

123 POKE#2CO,2 

124 PLOT1+OA,25,CHR*(10)+CHR$(1)+”MIS 

E:"+CHR*(7)+" ":PLOT9+OA,25,MI t 

125 PLOT1+OA,26,CHR$(10)+CHR*(3)+"MIS 

E: "+CHR*(7) + " ":PLOT9+OA,26,MI $ 

126 POKE#2CO,3 

127 IFMI=20THEN175 

128 IFPEEK(#209)=#A7THEN135 

129 IFPEEK(#209)=#A4THEN131 

130 GOTO128 

131 PLAY2,1,1,100:SOUND2,10,0:SOUND4, 
100,0 

132 MI= MI + 1 :SD=SD-1 

133 GOTO121 

134 IFPEEK(#209)0 #A7THEN134 

135 CURSET150,124,3 : FILL56,1,8 

136 CALL#8C75:H=0 

137 REPEAT:H=H+1 

138 PLAY1,0,1,80:SOUND1,PEEK(#276)+20 
,0 

139 IFH=100THENH=1 

140 UNTILPEEK(#209)<> #A7 

141 1=0:DE=(INT(RND < H)* <11-2) ))* 180 + # 
9044 

142 1 = 1 + 1 : IFI=6THEN144 

143 SP(I) = (INT(RND(H)*Z> )* 180+DE: GOTO 
1 42 

144 Z=Z-2! IF2=1THENZ=11 

145 1=0:CALL#8D7B 

146 FORAE=#A504TO#A51CSTEP6 

147 DOKE#10,AE 

148 1 = 1 + 1 :DOKE#00,SP <I) :CALL#8E9D 

149 NEXT 

150 PLAY1,0,1,1000:SOUND1,PEEK(#8C89) 
,0 

151 : ► 
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152 IFSP <1)=SP < 2)ANDSP(1)=SP(3)ANDSP( 

1)=£p(4)ANDSP(1)=SP(5)THENRA=300:G0T02 
01 

153 IFSP <1)=SP(2)ANDSP <1) =SP<3)ANDSP< 
1)=SP(4)THENRA=100 :GOTO201 

154 IFSP (1)=SP < 2)ANDSP(1)=SP<3)THENRA 
=20:GOTO201 

155 IFSP(1)=SP(2)THENRA=5:GOTO201 

156 I FSP < 1 ) OSP ( 2 ) THENGA=0 

157 SD=SD + GA: IFABS<SD)>9999999THEN186 

158 IFSD<0THENT$ = "VOUS ME DEVEZ:"+CHR 
i (1):GOTQ160 

159 T$ = " JE VOUS DOIS:"+CHR$(2) 

160 GAî =MID$(STR* <GA),2,LEN<STR*(GA)) 

) 

161 IFLEN(GAI)<5THENGA$=GA$+" "îGOTOl 
61 

162 SD$=MID$(STRI(SD),2,LEN < STR*(SD)) 

) + " F . " 

163 IFLEN(SD*)<9THENSD<=SD$+" "îGOTOl 
63 

164 POKE#2CO,2 :CLS 

165 PLOT 1+OA, 25,CHR$(10)+CHR$(2> + "GA I 
N!"+ CHRt(7)+ GAt 

166 PLOT1+OA,26,CHRi(10)+CHRÎ(3)+"GAI 
N:"+CHR$ < 7)+GA$ 

167 PLOT13+OA, 25 ,CHR$(10)+CHR$(6)+T$+ 
SD$ 

168 PLOT13+OA,26,GHR$(10)+ CHR$(5)+T*+ 
SD$ 

169 POKE#2CO,3 

170 CURSET150,124,3 :FILL56,1,12 

171 IFPEEK < #209)=#A4THEN120 

172 IFPEEK(#208)=#A9THEN225 

173 G0T0171 

174 : 

175 SOUND1,700,0 : PLAY1,0,1,2000:FORT= 
0TO400:NEXT 

176 FOR 1=61T032STEP-1 :CURSET24,I,3:FI 
LL 1,30,64:SOUND1,I,10 :NEXT: SOUND 1,0,0 

177 CURSET24,32,3 : FI LL30,1,3:CURSET36 
,54,3:FILL8,1,1 :CURSET66,54,3:FILL8,1, 

3 

178 Tt="STOP on arrête les frais.":CU 
RSET42,54,3:LO=25:GOSUB93 

179 Ti="Cela vous évitera la ruine.": 
CURSET36,54,3:LO=27:GOSUB93 

180 CURSET36,54,3:FILL8,1,12:CURSET42 
,54,3 : FILL3,1,2 :CURSET190,54,3 :FILL8,1 
,8 

181 T*="APPUYEZ SUR SHIFT DROIT":CURS 
ET48,54,3:LO=23 

182 FORL=1TOLO:CHARASC(MIDI<T$,L,1)), 
0,1:CURM0V6,0,3:NEXT 

183 FOR1 = 1T03:CALL#8CD5:NEXT 

184 GOTO134 

185 : 

186 SOUND1 ,700,0:PLAY 1,0,1,2000:FORT = 
0TO400:NEXT 

187 FOR 1=61T032STEP-1 :CURSET24,I,3:FI 
LL 1,30,64 : SOUND 1,I,10 :NEXT: SOUND1,0,0 


188 END 

189 CURSET30,54,3 : FILL8,1,12:CURSET36 
,54,3 :FILL8,1,1 :CURSET196,54,3 :FILLB,1 
,8 

190 T$ = "CE N'EST PAS RAISONNABLE"!CUR 
SET48,54,3!LO=24:GOSUB93 

191 CURSET30,54,3 : FI"LL8,1,7 

192 T$="LE MILLIARD EST EN JEU":CURSE 
T54,54,3:LO=22:GOSUB93 

193 CURSET30,54,3 : FILL8,1,12:CURSET36 
,54,3:FILL8,1,2 :CURSET190,54,3 :FILL8,1 
,8 

194 T$="ARRETONS NOUS LA”:CURSET72,54 
,3 :LO=16 

195 FORL=1TOLO:CHARASC(MIDÎ(T*,L,1)), 
0,1:CURMOV6,0,3:NEXT 

196 FOR1 = 1T03:CALL#8CD5:NEXT 

197 GETRt:G0T021 

198 : 

199 REM CHUTE DES PIECES 

200 : 

201 IFRA=300THENTP=15 

202 IFRA=100THENTP=10 

203 IFRA=20THENTP=5 

204 IFRA=5THENTP=1 

205 GA=MI*RA 

206 IFGA=0THEN157 

207 PLAY1,0,0,0 

208 FOR 1 = 100TO0STEP-50 

209 FORS=20+1 TOI 00+ISTEP5: SOUND 1,S,12 
:NEXTS 

210 FORS=100+1T020+ISTEP-10: SOUND1,S, 
12 :NEXTS,I 

211 FORO=6TOOSTEP-1:F0RN=1T012 

212 MUSICI,O,N,12 :NEXTN,O 

213 MUSIC1,0,1,0:FORT=0TO40:NEXT 

214 : 

215 1=0 

216 REPEAT:FORAD=#8F27TO#8FE5STEP95 

217 W=INT(RND(1)*6) :DOKEttOO,AD :CALL#8 
E6A: PLAY1,0,1,W*10:SOUND1,15,0 

218 FORT=OTOW*5:NEXTT 

219 DOKE#00,#8EC8:CALL#8E6A:PLAY2,1,1 
,W*40:SOUND2,10,0:SOUND4,800,0 :NEXTAD 

220 1=1+1:UNTILI=INT(TP+MI/2) 

221 G0T0157 

222 : 

223 REM RETOUR AU BASIC 

224 ! 

225 CALL#SE0F:CALL#8D7B:CLS: PLAY1,0,0 
,0 

226 FORN=0TO99STEP2 

227 CURSETO,N,0:FILL2,40,64 :CURSETO,1 
98-N,0 :FILL2,40,64 

228 SOUND 1,N + 20,8 

229 NEXT: SOUND1,0,0 

230 CALLDEEK < #FFFA) 

231 : 

232 REM (c) Dany BOSC 

233 :• 
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LISTING I 


10 A~ H6D9E : F= H897D : L= 100 : REPEAT : FOR A=A TO A^ 15 : READ Ci 
20 K'VALt " H» M ♦Ci > : S*S»K*65536* (S^K -65535) : IF A<-F THEN POKE A.K 
30 NEXT : READ Di : IF S**VAL< •‘•"♦Di ) THEN L=L«-5:UNTIL A> F : END 
40 PING :PRINT"Erreur ligne" L 

100 DATA 60.A9.B6. A2, FE.AO,FB.8D.CA, 86 ,8E.2F,87,8C,30.87,095E 
105 DATA A9.32.8D.D3.86.8D.03.8E.A9.31.8D.D6.86.8D.06.8E.1121 
110 DATA A9.30.8D.D9.B6.8D.OB.8E.8D.13.8E.A9.2A.8D.74.8D.189B 
115 DATA 0D.84.8D.8D.7B.8C.A9.29.8D.77.8D.8D.B1.8D.8D.7E.20D6 
120 DATA 9C.A9.03.8D.7D,BD.8D.F5.8D.8D,D3.8C,A9.EC,8D.7F.2A41 
125 DATA 8D.8D.F6.8D.8D.D4,8C.60.A9.5C.85,00.A9.6E,85.01.3252 
130 DATA A9.AO.85.03.AO.00.84.02.84,05.B1.00.C9.18,FO,1E.3872 
135 DATA C9.19.F0.14.C9.IC.FO.45.91.02.E6.00.D0.02.E6.01,3FA4 
140 DATA Et>. 02 . DO , E6 . E6,03 , DO , E2 . AO , 02 , B1 .00.85,05, AO ,01,475B 
145 DATA B1.00,85.04.08.A9.40.91,02.E6.02,DO,02,E6.03,C6.4E02 
150 DATA 04.DO.F4.C6.05.10.FO.B1.00.38.E9,16,18,65,00.85,547F 
155 DATA 00.A9.00.65.01.85.01,B1.00,84,05,90.B7,60.06.18,5913 
160 DATA 03.7F.7F.7F.7F.7F.7F,7F.7F.7F.7F.7F,7F.7F.7F.7F.6087 
165 DATA 7F.7F.7F.7F.7F.7F.7F,7F.7F.7F.7F.7F,7F.7F.7F,7F,6877 
170 DATA 70.18.04.06.10.02.4F.03.7F.7F,7E,18.04.05.43,70.6BC5 
175 DATA 18,0F.01,40.4E.40.06,7E.18.04.06,40.41,70.03.4F.6EA4 
190 DATA 7F.78.10,04.05.4F.78.04.40,41.70.18.OB.01,40,7F,725B 
185 DATA oO.06.41.60.18.03.06.40.43,40,03,41,7E.18.05,05.752A 
190 DATA 4F.7C,04,40.4F,7E.18,OB,01,41,7F,70,06.40.50,18.7910 
195 DATA 03.06.40.44,18,03.01.40.47,60.18.02.05.5F.7C,04.7B9E 
200 DATA 40.5F.7F.18.OB.01.43,7F.78.06.40.4C.18.03,06,40.7F0D 
205 DATA 40.18.03.01.40.5F.78.18.02.05.5F.7C.04.40.7F.7F.82C4 
210 DATA 60.18.06.03.43.18.02,01.47.7F,7C,06.40.46.18,03.858C 
215 DATA 06.40.50.18.03,01,40,7F.7E,18.02,05.5F,7C.04,41,88BA 
220 DATA 7F.7F.70.18.06.03.4F,70.40,01,47.7F.7C,06.40.42,8D13 
225 DATA 18.03.06.40.50.18.03.01.41.7F.7F.18.02.05,4F.78.9005 
230 DATA 04.43.7F.7F.78.18.06,03.4F.70,40,01,4F,7F.7E,06.9435 
235 DATA 40.41.18,03.06.40,60.18.03,01,43,7F.7F,18.02,05,96F3 
240 DATA 47,70.04.43,7F,7F.70.07,40.50.18.03.03,5F.78,40,9B33 
245 DATA 01.4F.7F.7E.06,43,61.18.03,06.40,60.18.03,01,43,9E4A 

250 DATA 7F.7F,18,02.05,41,40,04,47,7F,7F,7C,07,41,7C,18,A289 

255 DATA 03.03.5F.78.40.01.4F,7F.7Ç,06.4F,78.60.18.02.06.A640 
260 DATA 41.07.5E.18.02.01.47,7F.7F.60,18.04.04,47,7F.7F.AAOB 
265 DATA 7C,07.43.7E.18.03,03,5F.78.40.01.47,7F.7C.06,5F,AE2C 
270 DATA 7C.60.18.02.06,41,07,7F,18,02.01,47,7F,7F,60.18.B1C7 
275 DATA 04.04.47.7F.7F.7C.07,47,7F,18,03,03.4F,70,40,01.B57B 
280 DATA 47.7F,7C,06,5F,7C.60.18.02,06,41,07,7F,18.02.01.B900 
285 DATA 47.7F.7F.60,02.41.70.40,04.4F,7F,7F.7E.07.4F.7F.BE3C 
290 DATA 18.03.03.4F,70.40,01,43.7F,78,06,7F.7E.60,18.02,C211 
295 DATA 06.41.07.7F.18,02.01.47.7F,7F,60,02,47.7C.40,04,C5A7 
300 DATA 47,7F,7F,7C,07,4F,7F.60,18.02,03.43.18.02,01,41,C959 
305 DATA 7F,70.06,7F,7E.60,18,02,06,41.07.5E.18,02.01,43.CCCF 
310 DATA 7F.7F,40,02,4F,7E.40.04.47,7F.7F.7C.07,4F.7F,60,D216 
315 DATA 18.06.01,40.7F,60,06.7F,7E,60,18,02,06.41.18,04.D534 
320 DATA 01.43,7F,7F.40,02,4F.7E.40.04.47,7F,7F,7C.07,4F.D9E0 
325 DATA 7F.60.18.06,01.40,4E.40.06,5F.7C.60.18.02.06.40,DD4D 
330 DATA 60,18,03,01,43,7F.7E,40,02,5F,7F.40,04,43,7F,7F,ElAE 
335 DATA 78.07.47,7F,05,40,47,70,18,07,06.5F.7D,18,03,06.E511 
340 DATA 40.70.18,03,01,40.7F,7C.40,02,5F.7F.40.04,43,7F,E93E 
345 DATA 7F.78.07.47,7F,05,40,5F,7C,18,07.06.4F,7B,18,03,ED2C 
350 DATA Oc.40,58.18,03,01,40.5F,78.40,02.5F.7F.40,04.41.F0A2 
355 DATA 7F,7F.70,07,43,7E,05.41,7F,7F.18.07.06,43.66,18,F502 
360 DATA 03.06,40,4C,18,03,01,40,47,60,40.02,4F,7E.40,04,F7ED 
365 DATA 40.7F.7F,60.07,40,78.05,43,7F.7F,70.I8,06.06,40,FC64 
370 DATA 4C,18,03,06,40,46.18,08.02,4F.7E.40.04.40,5F,7F.FFA8 
375 DATA 18,04.05,47,7F,7F,78,18,06.06,40,58.1 B.03,06.40,02A3 
380 DATA 43.18,08.02,47,7C,40,04,40,4F,7E,18.04.05,4F.7F,060B 
385 DATA 7F,7C,18,06,06,40,70,18,03,06,40,41,60,18,07.02,08FD 
390 DATA 41,70,40.04,40,41,70,18,04,05.5F.7F,7F.7E,18,06,OCFD 
395 DATA 06,41.60.18,03,06,18,02,70,18,13,05,7F,7F,7F,7F,107B 
400 DATA 18,06.06.41,18,04,06,18.02,7F.7F.7F,7F,7F,7F,7F,1495 
405 DATA 7F,7F.7F.7F,7F,7F,7F,7F.7F,7F,7F.7F,7F.7F,7F,7F,1C85 
410 DATA 7F,7F,7F.7F,7F.7F,7F.7F.7F.7F.18.04,06,18.02,60,2217 
415 DATA 18,1F.41,18,04,06,18,02,69.49,49.49,49,49,49,49,2533 
420 DATA 49,49,49,49,49,49,49.49,49,49,49.49,49,49,49,49,29C3 
425 DATA 49.49.49.49,49.49.49,49.49.18,04,06,18.02,60,18,2008 
430 DATA 1F,41,18,04,06.18,02,64,64.64,64,64,64,64,64,64,3128 
435 DATA 64.64.64,64.64,64.64,64.64,64,64.64,64,64,64,64.3768 
440 DATA 64.64.64.64,64.64.64,65.18.04,06.18,02,60,18,1F.3B5C 
445 DATA 41.18.04.06,18,02,73.7F,7F.7F.7F,7F.7F.7F.7F.7F,40C3 
450 DATA 7F,7F,7F,7F,7F., 7F,7F,7F.7F.7F.7F,7F,7F.7F,7F.7F.48B3 
455 DATA 7F,7F.7F,7F,7F,7F,73,18,04.06,18,02,61,18,1E,06,4CF9 
460 DATA 61,18,04,06,18,02,73,07.40.7F.47,71,7C,5F,40.43.50E5 
465 DATA 7C,18,05,01,5F,70,48.41.7C.4E.43,60.40.5F,60.5F,55A2 
470 DATA 47,7F,06,73,18.04,06,18,02,61.07,40.7B,6E,7B,6E,5997 
475 DATA 7B.60,43,6E,18,05,01,4F,70.5C,43.7E,4E.43,60,40,5E4E 
480 DATA 7F,70,7F,67,7F,06,61,18,04.06.18.02.69,07,40,7B.6270 
485 DATA 6E.7B.60,78,40,43,6E.5F,4F,73.6E.40,01.47,70,7E,6827 
490 DATA 47.6F,4E,47,18,02,7F,79,7F,71,7C,06,69,18,04,06,6C81 
495 DATA 18,02,61,07,40,7F,4E,79,70,78,40,43.6E,43,6E,7B,719A 
500 DATA 6E.40.01,41,70,7E,47,47,4E,47,18,02,7D,79,7B,70,7696 
505 DATA 78,06,61,18.04,06.18.02,65,05,40,7B.6E,78,4E,78,7A82 
510 DATA 40,43,6E,5F,6E,7B,6E,40,03,41,71,77,47,47,4E,4E,7FBF 
515 DATA 18,02.78.79,71,70,78,06,65,18,04,06,18,02,61,05,8330 
520 DATA 40,7B,6E,7B,6E,7B.60,43,6E,7B.6E,79,7E,40,03,41,8932 
525 DATA 71,77.47.40.4E.4E.18.02,78.79,71,70,78.06,61,18.0E2O 
530 DATA 04.06,18.02.73,05.40,7F,47,71,7C,5F,40,43,7C,5F,926C 
535 DATA 6E,78.4E.40,03.4l.71.77.47.40.4E.5C.18,02.78,79,9748 
540 DATA 71,70.78,06,73,18.04.06,18,02.61.05.18,OB,41,7C,9A9C 
545 DATA 40,03.41.73.63,67.40.4E.5C.18.02.7D,79,71,70,78,9FB0 
550 DATA 06.61.18.04.06,18.02,73.05,18,OE,03,41,73,63,67,A272 
555 DATA 40,4E.78.18.02,7F.71,71,70.78.06,73.18,04,06.18.A68E 
560 DATA 02,61.05,41,78,18.OC.03.41.73,63.67,40,4F.78.18,AA73 
565 DATA 02,7F.61,71,70.78.06.61.1B.04.06,18.02.69.07,42.AE03 
570 DATA 44,43,46,4C,5F,47,60,40,70,7C,5E.4F,40,01,41,73,B2F0 


575 

DATA 

580 

DATA 

585 

DATA 

590 

DATA 

595 

DATA 

600 

DATA 

605 

DATA 

610 

DATA 

615 

DATA 

620 

DATA 

625 

DATA 

630 

DATA 

635 

DATA 

640 

DATA 

645 

DATA 

650 

DATA 

655 

DATA 

660 

DATA 

665 

DATA 

670 

DATA 

675 

DATA 

680 

DATA 

605 

DATA 

690 

DATA 

695 

DATA 

700 

DATA 

705 

DATA 

710 

DATA 

715 

DATA 

720 

DATA 

725 

DATA 

730 

DATA 

735 

DATA 

740 

DATA 

745 

DATA 

750 

DATA 

755 

DATA 

760 

DATA 

765 

DATA 

770 

DATA 

775 

DATA 

780 

DATA 

785 

DATA 

790 

DATA 

795 

DATA 

800 

DATA 

805 

DATA 

810 

DATA 

815 

DATA 

820 

DATA 

825 

DATA 

830 

DATA 

835 

DATA 

840 

DATA 

845 

DATA 

850 

DATA 

855 

DATA 

860 

DATA 

B65 

DATA 

870 

DATA 

875 

DATA 

880 

DATA 

885 

DATA 

890 

DATA 

895 

DATA 

900 

DATA 

905 

DATA 

910 

DATA 

915 

DATA 

920 

DATA 

925 

DATA 

930 

DATA 

935 

DATA 

940 

DATA 

945 

DATA 

950 

DATA 

955 

DATA 

960 

DATA 

965 

DATA 

970 

DATA 

975 

DATA 

980 

DATA 

985 

DATA 

990 

DATA 

995 

DATA 

1000 

DATA 

1005 

DATA 

1010 

DATA 

1015 

DATA 

1020 

DATA 

1025 

DATA 

1030 

DATA 

1035 

DATA 

1040 

DATA 

1045 

DATA 

1050 

DATA 

1055 

DATA 

1060 

DATA 

1065 

DATA 

1070 

DATA 

1075 

DATA 

1080 

DATA 


77.67,40.4E.7C.47.70.7F,41.71.70.78.06,69.18.04.B833 
06.18.02.61.07.44,72,43,46,5E.59.6C.70.41.71.66.BCA5 
73.58.60.01.41.73.7F.67.40.4E.5C.4F.78.7C.41.71,C24A 
70.78.06.61.18,04,06.18.02.65.07.45.4A.43.6E.73,C5F4 
59.6C.18.02.71.66.73.58.40.01.41.73.7F.67.47.4E,CAE5 
4E.47.70.78.41,71.70,78.06.65,18,04.06.18,02,61,CF04 
07.45.4 2.4 3.7E.73.5F.47.60.40.70.7E.5E.5F.40,01.D3F8 
71.73,77,67.47.4E.4E,18.02,78,41,71,70,78,06,61,D930 
18.04.06.18,02.73,05.45,4A,43.56,7F,5E,40,70,40,DCD9 
70.46.73.59.60.03.7B.73.63.67.47.4E.47.18.02.78.ElE4 
41,7B,70,78.06,73.10,04,06,18,02,61,05.44,72,43.E59C 
46,73,5B,4C,70,40,70,4C,73,59,60,03,7F,73.63,67,EB53 
6F.4E.47.18.02,78.41,7F.70,70,06.61,18.04,06.18.EF32 
02,73,05,42,44.43.46.73.59.67.60.41,78,78,5E,4F.F42C 
40,03,7F,63,63,63,7E.4E.43,60.40,78,40.7F.60,78,F9D5 
06.73,18,04.06,18.02,61.05,41.70.10.OC,03.5F.43,FC72 
63,61.7C.4E,43,60.40.78.40.5F.40,78.06,61.18,04.0135 
06,18,02,69.18.1E.06,69,18,04,06,18,02,61,18,1E.0336 
06.61,18.04.06,18.02.65.18.IE.06,65.18.04.06,18.0519 
02.61.02.5F,41,6F.60.40,4D,7E,73,40.47,73,73.78.0A50 

40,5E.59.67,67.7B,79.66,5E.5F.67,63,7 3,4C,7C,40,1071 
06.61,18.04,06.18.02.73,02,58,41.61,60,40.4D.60,13D0 
73,40.46.41.60.58,40.4C,59.6C.71.63.4D,66,73.46.1953 
43.46.SB.4D.66.40.06.73.10,04.06.18,02,61.02.58.1C9A 
41.61,67.78.4D.60,73,40.46.41.60.59,7E,4C.5D.6C,224E 
41.63.4D.66.70,46.43,46.5B.6D.60.40,06,61.18.04.26CF 
06.18.02.73.02.58.41.61,60.40.4D,7C,73.40.46.41.2B01 
60,58,40.4C,5F.67.61.63.79,66.70.46,43,46,5B.7C.30C4 
7C.40.06.73.18.04.06,18.02.61.03.58,41.61.67.78.3472 
4D.60,73.43,46.41.60,59,7E.4C.5B,60,71.63.71.66.3A45 
70.46.43.46.5B.SC.46,4C.06.61.18.04.06.18.02.69.3DD9 
03.58,59,61,60.43.4D.60,73,47.66.41.60,58.40.4C,42E3 
59.6C,71 ,63.59.66,73.46.4 3.46.5B.4D.66,5E.06.69,4058 
18.04.06*. 18.02.61 ,03,5F. 4F. 4F. 60.41,79,7E , 5E . 43.4C2E 
47.73,73.78.40.5E,59.67,61,63.4C,7C,5E.46,47,63,520B 
73.4C.7C.4C.06.61.18.04.06.18.02.65.18.1E.06.65,553B 
18,04.06.18.02,73,18,1E.06.73,18,04,06,18.02.61.5736 
10.1E,06.61.18,04.06.18.02.73.7F,7F,7F.7F,7F,7F,5B7C 
7F,7F.7F.7F.7F.7F.7F.7F.7F.7F.7F,7F,7F.7F.7F.7F,636C 
7F.7F.7F.7F.7F,7F.7F.7F,7F.73.18.04.06,18.02.60,68F2 
18.1T.41.18.04.06.18,02.69.49.49,49,49,49.49,49,6C0E 
49.49.49,49,49.49.49.49.49,49.49,49,49,49,49.49,709E 
49.49.49.49.49.49.49.49.49.18.04.06.18,02.60.18.73E3 
1 F.41 .10,04.06,18.02.64,64,64.64,64,64,64.64.64.7803 
64.64.64.64.64.64.64.64.64.64,64.64,64.64.64.64.7E43 
64.64.64,64.64,64.64,65,18,04,06,1 8,02 1 60,18,1 F.8237 
41.18,04.06.40.41,7F.7F,7F,7F,7F.7F,7F,7F.7F,7F,8811 
7F.7F,7F.7F.7F,7F.7F.7F,7F.7F,7F.7F.7F.7F.7F,7F.9001 
7F.7F.7F.7F.7F.7F.7F.10.04.06.40.43,7F.70.18.OB.9531 
01.7F.7F.7F.7F.7E.06.18.07.02.40,50.06,47.7F.60.998F 
18,03.06.40.47.7C.18.OC.01.5F.7F,7F,7F,7C.06,18,9D4E 
07,02,41,78,06,40.5F.70.18,03,06,40,4F,70,18.OC,A069 
01,4F.7F.7F.7F.78.06.18,07,02,43,7C.06,40,47,78.A499 
18.03.06.40,5F.18,OD,01,47,7F,7F,7F,70,06,18.07.A7DB 
02.47.7E.06.40.43.7C.18.03.06.40.7C.18.0D.01,41,AAE8 
7F.7F,7F,60,06,18,07.02,47,7E,06,18.02.7E,18.03,AE6A 
06,41,78.18.0D,01,40,4F.7F.7E.40,06.18,07,02,4F,B191 
7F.06.18.02.4F.18.03.06.43,70,18,OD,01,40,41.7F.B479 
70.40,06.18.07,02.47.7E.06.18,02,43,60,18.02.06.B6F8 
43.60.18.00,01.18,02,44,18,02,06,18,07,02,43,7E,B921 
06,18,02,41,70.18,02.06,47.18,IC,02.41,7C.06.18.BB6A 
03.70.18,02.06.46,18,1E,50,06,18,03,58,18,02.06,BD62 
4C.18.1E.03.18.03.06.4C,18.02,06,4C.05,40,5C.40.BFA1 
01.40,5F,7E,40.4F.18,02,5F,60.47,60,4E,18,03,41,C378 
7F, 60.40.5F. 60.43.7F. 7C . 0.6,03,18,03,06,4C . 18,02 , C724 
06.58,05,41,7F,40,01,40,7F,7F,40,5F,60,41,7F,78,CBFD 
4F,70.5F.18.03.47,7F,78,41,7F,78.47,7F,7E.06.03.D0F9 
40.5C.40.06,44,18.02.06.58,05,43,7F,60,01,40.7F,D47E 
7F,40.7F.70,43,7F,7C.4F,70.5F.18,03.47,7F.7C.43.DA28 
7F.7C.4F,7F.7F.06.03.41.7F,40,06,4 6,18.02.06.50,DE35 
05,47,7F.70.01,40.7F.7F,40.7F.70.43,7F.7E.4F.70.E3DD 
5F.18,03.4F.7F.7E.47,7F.7E,4F,7F,7F,06,03.47,7F,E903 
70,06.46.18,02.06,50,05,4F,7F,78,01,40,5F.7F.41.ECDA 
7F.78.47.7F.7E,4F.70,7F.18,03,4F,7F,7E,47,7F,7E,F2FE 
4F,7F.7F,06.03.4F,7F.78,06,42,1B.02.06 » 50,05,4F,F6A6 
7F.70,01.40,4F,7F.43,7F.7C,47,7F.7F.4F,70.7F.18.FC85 
03.4F.78.7F.4F.70,7F.47.7F.7E,06,03.4F.7F.78.06,01A5 
42,18.02.06.50,05,5F.7F.7C,01,40,47,7F,43,7F.7C.05FB 
4F.7F,7F,4F.70,7F,18.03.4F,70,5F,4F.60,5F,40.7F.0B8C 
70,06,03.5F,7F.7C,06.42,18.02,06,70,05,5F,7F,7C,0F96 
01.40,41 ,7F, 47,7F, 7E, 4F, 78,7F, 4F. 71 ,7F, 1-8.03.4F, MCA 
70,5F.4F.60.5F,40,5F,60,06,03,5F,7F,7C,06,43.18,196A 
02.06,70.05.5F.7F,7C,01,18,02,7F,47,7F.7E.4F.70.1 DDE 
5F.4F,73,7F,18,03,4F,70,5F,4F,60,5F,40,5F,60,06.22CA 
03,5F,7F,7C,06.43,18,02,06,70,05.5F,7F,7C,03.18,267A 
02,7F,4F,7F.7F,4F,70,4F,4F,73,7E,18,03.4F.70,5F.2BCF 
4F,60,5F.40,5F,60,06,03,5F,7F.7C,06.43,18,02,06,2FA8 
70.05.4F,7F,78,03,18,02,7F,4F,7F,7F,4F,70,46,4F,34A0 
77,7E,18,03,4F.70,5F.4F.60,5F,40,5F.60,06,03,5F,3943 
7F.7C.06,4 3.18.02,06,60,05.47,7F,70,03,1B,02,7F.3CDE 
4F,79.7F,4F,70,40,4F,7F,7C,18.03.4F,70.5F.4F,60,4256 
5F.40.5F,60.06,03,5F,7F,7C,06,41,18.02.06.60,05,45E3 
47.7F.70.03.18.02.7F.4F.70.7F.4F.70,40.4F,7F.7C.4B3C 
18.03.4F,70.5F,4F,60,5F,40,5F,60,06,03.5F.7F,7C,4FE5 
06,41.18.02.06.60.05.41.7F.40.03,18.02.7F.4F.60.52FC 
5F,4F,70.40.4F.7F.78,10,03.4F.70.5F.4F,60.5F,40,5827 
5F.60.06,03.4F.7F.78,06,41,18.02.06,60,05.40,5C.5B9D 
40,03,1 B,02,7F.4F,60.5F,4F,70,40.4F.7F.70,18.03,5FDF 
4F.70.5F.4F.60,5F.40,5F.60,06.03.4F.7F.78.06.41,64A0 
18.02.06,60,18.04.03,18,02,7F.4F,60,5F.4F.70,40,67E5 
4F.7F.60,18.03.4F,70.5F,4F.60,5F.40,5F.60.06,03,6C62 
47,7F,70,06,41,18.02,06,60,1B,04.03 » 18,02,7F,4F,6F66 


20 



1085 DATA 60,5F,4F,70,40,4F.7F.18,04,4F,78,7F,4F,60,5F, 40,74A2 
1090 DATA 5F,60,06,03,41,7F.40,06,41,18.02,06,60,18,04,02,774F 
1095 DATA 18,02,7F,4F,60,5F.4F,70,40,4F,7E,40,5F,7F.40,4F,7C6F 
1100 DATA 7F.7E,4F,60,5F,40,5F,60,06,03.40,5C,40,06,41,18,80BD 


1105 DA.TA 
1110 DATA 
1115 DATA 
1120 DATA 
1125 DATA 
1130 DATA 
1135 DATA 
1140 DATA 
1145 DATA 
1150 DATA 
1155 DATA 
1160 DATA 
1165 DATA 
1170 DATA 
1175 DATA 
1180 DATA 
1185 DATA 
1190 DATA 
1195 DATA 
1200 DATA 
1205 DATA 
1210 DATA 
1215 DATA 
1220 DATA 
1225 DATA 
1230 DATA 
1235 DATA 
1240 DATA 
1245 DATA 
1250 DATA 
1255 DATA 
1260 DATA 
1265 DATA 
1270 DATA 
1275 DATA 
1280 DATA 
1285 DATA 
1290 DATA 
1295 DATA 
1300 DATA 
1305 DATA 
1310 DATA 
1315 DATA 
1320 DATA 
1325 DATA 
1330 DATA 
1335 DATA 
1340 DATA 
1345 DATA 
1350 DATA 
1355 DATA 
1360 DA-TA 
1365 DATA 
1370 DATA 
1375 DATA 
1380 DATA 
1385 DATA 
1390 DATA 
1395 DATA 
1400 DATA 
1405 DATA 
1410 DATA 
1415 DATA 
1420 DATA 
1425 DATA 
1430 DATA 
1435 DATA 
1440 DATA 
1445 DATA 
1450 DATA 
1455 DATA 
1460 DATA 
1465 DATA 
1470 DATA 
1475 DATA 
1480 DATA 
1485 DATA 
1490 DATA 
1495 DATA 
1500 DATA 
1505 DATA 
1510 DATA 
1515 DATA 
1520 DATA 
1525 DATA 
1530 DATA 
1535 DATA 
1540 DATA 
1545 DATA 
1550 DATA 
1555 DATA 
1560 DATA 
1565 DATA 
1570 DATA 
1575 DATA 
1580 DATA 
1585 DATA 
1590 DATA 


02,06,60,18,04.02,18,02,7F.4F,60,5F,4F,70,40,4F. 8438 
7C.41,7F.7F.70,4F,7F,7E,4F,60.5F,40,5F.60,06,18,89DA 
04,06.41,18,02.06.60,18,04,02,18.02,7F,4F.60,5F,8C6A 
4F,70,40,4F,7C,43,7F,7F,78,4F.7F,7C,4F,60,5F,40,9285 
5F.60,06,18.04.06.41.18,02,06,60.18,04,02,18,02,9465 
7F,4F,60,5F.4F,70,4 0.4F,7C,43,7F,7F,78,4F,7F,78,9ABB 
4F,60,5F,40,5F,60,06,18,04,06,41,18,02,06.60.18.9DC9 
04,02,18,02,7F,4F,60,5F.4F,70,40,4F,7C,41,7F,7F,A27F 
70,4F,7F.60,4F.60,5F,40,5F.60.06.18.04.06,41.1B.A6AB 
02,06,60,18,04,02,18,02,7F,4F,70,7F.4F,70.40.4F,AA56 
7E,40,5F,7F.40,4F.7E,40.4F,60,5F.40,5F.60,06.18,AF6A 
04,06,41,18,02,06.60,18,04,02,18,02.7F.4F.7F,7F,B239 
4F,70,40,4F.7F.18,04,4F,78.40.4F.60.5F.40.5F.60.B736 
06,18,04,06.41,18.02,06,60,18,04,02,18.02,7F,4F,B925 
7F.7F.4F.70,40,4F,7F,60.18,03,4F.70.40,4F,60,5F,BE78 
40,5F,60,06,18,04,06,41,18,02,06,60,18,04,05,18.C099 
02,7F.4F,7F,7F,4F,70,40,4F,7F,70.18,03,4F,70.40,C5BE 
4F,60,5F,40,5F,60,06,18,04,06,41,18,02,06,60,18.C8CC 
04,05,18,02,7F,4F,7F,7F,4F.70,40,4F.7F.70.18.03.CD13 
4F,70,40,4F,60,5F,40,5F,60,06,18,04,06,41,18.02.D0A2 
06,60,18,04,05,18.02.7F.4F.7F,7F.4F,70,40,4F,7F,D4DC 
78.18,03,4F,70,40,4F,60,5F,40,5F,60,06,18,04,06.D8A3 
41 , 18,02,06,60,18.04,05,18.02,7F.4F,7F.7F,4F,70,DC2A 
40,4F,7F.7C,18,03,4F,70.40.4F.60,5F,40.5F.60,06.EOE1 
04.41,70,40,06,41,7E.40.06.60,18.04.05,47.60.7F.E488 
4F,70,7F,4F,70,46,4F,73,7C,18,03,4F,70,40,4F,60,E9D2 
5F,40.5F.60.06.04,47,70,40,06,41,41.40,06,60,18.ED83 
04,05,4F,70.7F,4F.60,5F.4F,70,4F,4F,71,7E,18,03,F23F 
4F.70,40,4F,60,5F.40,5F,60,06,04,4F,70,40,06,41.F6A7 
41,40,06,60,18,04,05,4F,70,7F,4F,60,5F,4F,70,5F,FBI 9 
4F,71,7E,18,03,4F,70.40,4F,60,5F,40,5F,60,06.04,FF88 
4F,7E.40,06,41,41.40,06,60,18,04,05,4F,78,7F,4F,0379 
60.5F,4F,70,5F,4F,70,7E,18.03,4F,70,40,4F,60,5F,08BB 
40,5F,60,06,04,5F,7E,40,06,41,41,40,06,60,18,04.0C2B 
04,4F,79,7F,4F,60.5F,4F,70.7F,4F,70,7F.18,03,4F,116A 
70,40,4F,60,5F,40,5F,60,06,04,5F,7E,40,06,41,41,15D6 
40,06.60.18.04,04,4F,7F.7F,4F.60,5F.4F,79.7F,4F,1A8D 
70.5F,18,03,4F.70,40.4F,70.7F,40.5F.60,06,04,5F,1F1C 
7C.40.06,41,41.40,06.60.18,04.04,47.7F.7F.4F.60,231A 
5F,47,7F,7F.4F,70,5F.18,03,4F,70,40,47,7F,7E,40.287A 
5F,60,06,04,4F.7C.40,06,41,41,40,07.70.18.04.04,2BAD 
47,7F.7F,4F,60,5F.47,7F,7E,4F,70,5F,18,03,4F,70,313C 
40,47,7F,7E,40,5F,60,06,04.4F,78,40.06,41.41,40,3598 
07,78,18,04.04,43.7F, 7E, 4F, 60.5F, 43,7F. 7E ,-4F. 70.3A84 
5F,18,03,4F,70,40.43,7F,7C,40.5F,60,06,04,43,60.3EE7 
40,06,41,41,40,07,70,18,04,04.43.7F.7E,4F,60,5F.42E0 
43,7F,7C,4F,70,5F,18,03,4F,70,40,41.7F,78,40,5F,482D 
60,06.18.04,06,41,01,7C,07,7C,18,04,04,40.7F.7C,4B51 
4F.60.5F.41,7F,78.4F,70,5F,18,03,4F,70,18.02,7F,5028 
70,40,5F,60,06,18,04,06,41,01,7E,07,7E,18,04,04,5324 
40.4F.60,47,40,4E,40,5F,40,47,60,4E,18.03,47,60,577E 
18,02,4F,18,02,4F,40,06,18,04,06,41,01,7F,07,7E,59FE 
18,22,06,41,01,7F,07,7F,18,22,06,41,01,7F,07,7F,5D0C 
18,17,08,03,18,04,60,18,03,08,06,41,01,7F,07,7E,5F31 
18,17,08,03,18,04,60,18.03,08,06,41,01,7F.07.7E,6156 
18.17.08,03,18.03,41,60,18.03,08,06,41,01,7F.07,633D 
70,18,17,08,03,18,04,60,18,03,08,06,41,01,7F.07,6560 
7C,18,17,08,03,18,04,60,18,03,08,06,41,01,7F,07,6783 
78,18,17,08,03,18,03,50,61,18.03.08,06,41,01.7E.69EA 
07,70,18,17.08,03,18,04,60.18,03,08,06,41,01.7C.6BFE 
06,60.18.17,08,03,18,03.41,70.18.03.08,06,41,41,6E15 
40,06,60,40,7F,7F,7F,7F.7F,18,11,08,18,09,08,06,71D6 
41.41.40.06.60,40.7F,7F,7F,7F,7F,18,1I.08,18.09.760B 
08,06.41,41.40,06,60,40,7F,7F,7F,7F,7F,03,40.4 3.7A82 
78,18.0A.01,43,60,08,07,47.41.18.02,50,50,18.02.7D2B 
08,06,41,41,40,06,60,40,73,7F,7F,7F,73,03,40.5F,81A6 
7E,18,OA,01,4F,78,08,07,42,41,70,40,50,18.03.08,84C3 
06.41.41,40,06,60,40,73,7F,7F,7F,73,03,41.7F.7F.89D6 
60.40.06,40', 07,7F, 7F, 7F, 7F, 7F. 01.5F, 7C , 08,07.42.8E6B 
5D.4 7,48,75,57,5D,70.08,06,41,41.40.06,60,40,7F,92E5 
7F,7F,7F,7F.03,4 3,7F.7F,70.40.06.40,07.60.18,03.979D 
41,01,5F,7C.08,07,4 2,55.4 4,55.55,54,54.50,08,06.9B54 
41,41.40.06,60,40,7F,7F,7F.7F.7F.03,4 3.7F.7F.78.A0F3 
40,06,40,07.60.18,03,41.01,7F.7E,08.05.42,55,44,A422 
55,55.57,5C,60.08.06,41.41.40.06.60.40,7F,7F.73,A 80*6 
7F.7F.03,47.7F,7F,7C,40.06.40,07,60,18,03,41,01,ACD2 
7F.7E.08.05,42,55,44,55,55,51.51,40,08,06,41.41.B0D3 
40,06.60,40,7E,7F,61,7D,7F,03,4F,7F,7F,7C,40,06.B625 
40.07,60,18.03,41,01,7F.7E.08.05.47,55,74,48.77.BA02 
57.5D.70,08,06,41,41,40,06,60.40,70,71,61,79,63.BEC6 
03,5F.7F,7F,7E,40,06,40,07,60.18.03,41,01.5F.7C.C2C9 
08.18,09.08,06.41,7E,40.06.60.40.78,77,61,71.6F.C6D5 
03.5F,7F.7F.7E.40,06,40,07.60,18.03.41,01.5F.7C.CAD8 
08,07.18.03,41.18,04,08,06.41,18.02,06,60,40,70.CCDE 
73,61,61,67,03,7F,7F,7F.7F,40.06,40,07,60,18.03.D181 
41,01,4F.78.08,07,18,08.08.06,41.18,02,06,60,40.D3C8 
7C,77,61,79.6F.03.7F,7F,7F,7F,40.06,40,07.60.18.D90B 
03,41,01,43,60<08,07,45,49,70,59,5D,77,50,40,08,DCCE 
06,41,18.02,06.60,40,70,77,61.79,6F,03,7F,7F.7F.El 91 
7F.40,06,40,07,60,18,03,41,18,03,08,07,45,55,40,E45D 
55.55.45.50.40,08,06,41,18.02.06.60,40.70.7F.61.EB47 
79,7F,03,7F,7F,7F,7F,40,06,40,07,60,18,03,41,18.EC9F 
03,08.05,45,55,70,55,5D,47,50,40.08,06.41,18.02.EFB7 
06.60,40,70,7E,40.59,7F,03.7F,7F,7F,7F,40,06,40,F4F4 
07.60.18,03.41.18,03.08.05.45,54.50.55,51,44.44.F7F6 
40.08,06,41.18.02,06.60.40,70,7F.61,79,7F,03,7F,FOI B 
7F.7F.7E.40.06.40.07.60.18.03.41,18,03.08,05.42.FF4A 
49,70.59,5D,77,50,50,08,06.41,18.02,06,60,40.70,0367 


1595 DATA 7F,61.79,7F.03.5F,7F, 
1600 DATA 41.18.03.08.05.18.03. 
1605 DATA 60,40,78.5F,61,70.7F, 
1610 DATA 60,18.03.41.18.03.08, 
1615 DATA 18,02,06.60,40.78.5F. 
1620 DATA 06,40,07,60,18,03,41, 
1625 DATA 02,06.60.40,7F.7F,73. 
1630 DATA 40,07,60,18,03,41,18, 
1635 DATA 06.60.40,7F.7F.7F.7F. 
1640 DATA 07,60,18,03,41,18.03, 
1645 DATA 06.41.18,02,06.60,40, 
1650 DATA 70.40.06.40,07,60.18, 
1655 DATA 48,18,03,08,06.41.18, 
1660 DATA 03,41,7F,7F,18,02,06, 
1665 DATA 03,18,03.42,48.18.03. 
1670 DATA 7F,7F,7F,7F.03.40,5F, 
1675 DATA 7F.7F,7F.7F.60.08,03, 
1680 DATA 02,06,60,40,7F,7F,7F, 
1685 DATA 60,18,08,60,08,03,18, 
1690 DATA 06,60.40,7F,7F,7F,7F, 
1695 DATA 52,52,52,52,60,08,03, 
1700 DATA 41,18,02,06,60.18.00, 
1705 DATA 42,18,04.08,06,41.18, 
1710 DATA 52,52,52.52,52.52.60. 
1715 DATA 06,41,18.02,06,60,18, 
1720 DATA 08,06,41,18.02.06,60. 
1725 DATA 49.49,49,49,49.49,60, 
1730 DATA 60,02,41,7F,70.18.08, 
1735 DATA 18,07,08,06,41,18,02, 
1740 DATA 54,64,64.64,64.64.64, 
1745 DATA 06,41,18,02,06.60.02, 
1750 DATA 41,40,08,07,45,59,65, 
1755 DATA 02,06,60.02,4F,7F,7E, 
1760 DATA 52,52,53,40,08.07.45, 
1765 DATA 41,18,02,06,60,02,5F, 
1770 DATA 40,08,05,47,55,55.55» 
1775 DATA 06,60,02,5F,7F,7E,18, 
1780 DATA 52,53,40,08,05.45.55, 
1785 DATA 18.02,06.60,02,7F,7F, 
1790 DATA 08.05.45,59,67.5D,77, 
1795 DATA 60,02,7F,7F,7F,18.08. 
1800 DATA 4A,40,08,05.40,51.40, 
1805 DATA 60,02.7F,7F,7F,18,08, 
1810 DATA 51,40,50,18,04.08.06, 
1815 DATA 18,08.06.40,64,64,64, 
1820 DATA 08,06,41,18,02.06.60. 
1825 DATA 07.46,40.08,07.44.40. 
1030 DATA 02.06.60,02.5F.7F.7E, 
1835 DATA 52.52.54.40,08.07,44, 
1840 DATA 18.02,06.60,02,5F,7F, 
1845 DATA 08,07,44,50,58,65,50, 
1850 DATA 60,02,4F,7F,70,18,08, 
1855 DATA 70,40,08,07,44,54,55, 
1860 DATA 02.06,60,02,47,7F,70, 
1865 DATA 55.18,02,08,06,41,18, 
1870 DATA 01.18,02,70,18,OD.08, 
1875 DATA 08,06.41,18,02.06.60. 
1880 DATA 60,18,00,08,05,47,50, 
1885 DATA 18.02.06,60,18.06.01. 
1890 DATA 02,06,60,18,06.01.40, 
1895 DATA 06,60.18,06,01,43.7F. 
1900 DATA 60,18.06,01,47,7F.7F. 
1905 DATA 7F.7F,7F,7F,7F,7F,7F, 
1910 DATA 7F,7F.7F.7F,7F.7F,7F, 
1915 DATA 7F.7F,7F,7F,7F.7F.7E, 
1920 DATA 48,48,48,48,48,48,48, 
1925 DATA 48,48,48,48,48,48,48, 
1930 DATA 48.48,48,48,48.48.48, 
1935 DATA 48.48.48,48,48,48,48, 
1940 DATA 48,48,48,48,48,48.49, 
1945 DATA 48,48.48,48,48,48.48, 
1950 DATA 48.48.48,48,48.48.48. 
1955 DATA 7F,7F.7F,7F,7F.7F,7F, 
1960 DATA 7F,7F.7F.7F,7F,7F,7F. 
1965 DATA 7F.7F,7F,7F,7F,7F.7F, 
1970 DATA 41,41.41,41,41,41.41, 
1975 DATA 41.41,41,41,41,41,41, 
1980 DATA 41.41,41.41.41.41.41, 
1985 DATA 41.41,41,41,41,41,41. 
1990 DATA 41.41,41,41,41,41,41, 
1995 DATA 41.41,41,41,41,41.41, 
2000 DATA 41,41,41,41,41,41.41, 
2005 DATA 7F.7F.7F,7F,7F.7F,7F. 
2010 DATA 7F,7F.7F.7F.7F,7F.7F. 
2015 DATA. 7F.7F,7F,7F,7F,7F,7F, 
2020 DATA 48,48.48,48,48,48.48, 
2025 DATA 48.48.48,48,48.48,48. 
2030 DATA 48.48.48,48,48,48,48, 
2035 DATA 48,48.48,48.48,48,48. 
2040 DATA 48.48.48.48,48,48.49, 
2045 DATA 48,48,48,48,48,48,48. 
2050 DATA 48,48,48.48,48,48,48. 
2055 DATA 7F.7F.7F.7F.7F.7F,7F, 
2060 DATA 7F,7F,7F.7F,7F,7F,7F, 
2065 DATA 7F.7F.7F.7F,7F.7F,7F, 
2070 DATA 41.41,41,41,41,41.41, 
2075 DATA 41,41,41.41,41,41,41, 
2080 DATA 41,41,41,41.41.41.41, 
2085 DATA 41,41.41,41,41,41.41, 
2090 DATA 41.41.41,41,41,41.41. 
2095 DATA 7F,7F.7F,7F,7F,7F,7F, 
2100 DATA 7F.7F.7F,7F,7F.7F.7F. 


7F,7E.40.06.40,07,60.18.03,0825 
50.18.04.08,06,41,18,02,06,0984 
03,5F.7F,7F,7E,40,06,40.07.0EB6 
05,18,03,50.18.04,08,06,41,1070 
61,70,7F.03.4F.7F.7F.70,40,1563 
18,03,08,18.09,08,06,41,18,1717 
7F.7F,03.4F,7F.7F,78.40,06.1C3C 
03,08,18,09,08.06.41,18,02.1DEC 
7F.03.47.7F.7F.78.40.06,40.2353 
08,03,18.03.41,70.18,03.08.252B 
73,7F.7F,7F,73.03.43.7F.7F,29D9 
03,41,18.03.08.03,18,03,42.2015 
02.06.60.40,73.7F.7F,7F,73.2FEA 
40,07,60.18.03 ,-4 1.18,03,08,3272 
08,06,41.18.02.06,60,40,7F.3403 
70,18,02.06,7F.7F,7F.7F,7F,3A78 
18,04.48,18,03.08.06,41,18.3DC5 
7F,7F.03,40,47.70.18,02,06,4202 
04,70,18,03,08.06.41,18.02.43FD 
7F,18,06,06,72,52.52,52,52.48FC 
18,03,61,40,60,18,02,08,06.4BF3 
06,60,18,08,60,08.03,16.03.4DE4 
02.06,60,18,00,06,72.52.52.5051 
08.03,18.03.43,78,18.03,08.53A1 
00,06,60,18.08.60,08.18,09.559B 
02,40,5F.18.09,06.79.49,49,583D 
08,18.09.08,06,41,18.02,06.5AEB 
06.50,18.07.41,40,08,07,42,5DE4 
06,60,02.43,7F,78.18,08,06,6034 
64.65,40,08,07,45,18,07,08.6464 
47,7F,70.18,08,06,50.18,07.6704 
55,77,47,55,70,08,06.41,I 8 . 0 AD 6 
18.08,06,52,52,52.52.52,52.6E9E 
55,55,55.51,44,55,50.08,06.7270 
7F,7E,18,08,06.58,18,07,41.756D 
72,47,55,60,08.06,41,18,02,7807 
08,06,4A,52,52.52,52,52,52,7CF7 
55,55,44,41,55,50,06,06,41.80A6 
7F.18,08.06,48.18.07,42,40.83B4 
47,50,50,08,06,41.18,02,06.86FD 
06.49,49,49,49.49,49,49,49,8B4A 
44,18,04,08,06.41.18,02,06,8D81 
06,48,18,07,42,40,08.05,40.90BC 
41 . 18.02.06.60,02.7F,7F.7F.9413 
64.64.64,64.66.40.08.18.09 ,.98 10 
02,7F,7F.7E.18.08.06.40.18.9AE7 
50.40,50,18,03.08,06.41,18.9D69 
18,08,06,46,52,52.-52.52,52,A135 
40,50.40.50.18.03.08,06,41,A456 
70,18,08,06,44.18,07.44.40,A73F 
67,18.02.08,06,41.18,02.06,A9EB 
06,47,7F,7F,7F,7F,7F,7F,7F,AF7D 
55,51,55,18,02.08.06.41.18.B2B1 
18,13,08,05.44,50,55,55,51,B624 
02,06,60,02.43,7F.60,18,02,B8A0 
05,44,50.55,55,51,55,18.02.BB67 
02,40.7E,18,03.01,40.47,7F,BEI 8 
58.67,50,65,44.40,08.06,41,019F 
40.5F,7F,78.18.17,06,41.18,0462 
7F.7F.7E,18,17,06,41,18,02.0735 
7F,7F,18,17,06,41.18.02,06,CA 10 
7F,70,18.16,06,41.18,02.5F,CDB1 
7F,7F,7F,7F,7F,7F.7F,7F.7F.D5A1 
7F,7F,7F,7F,7F,7F,7F,7F,7F.DD91 

68.48.48.48.48.48.48.48.48, E3B1 

48.48.48.48.48.48.48.48.48, E831 
48,48.48,48,48,48.48,49,68.ECD2 

48.48.48.48.48.48.48.48.48, Fl52 

48.48.48.48.48.48.48.48.48, F5D2 

68.48.48.48.48.48.48.48.48, FA73 

48.48.48.48.48.48.48.48.48, FEF3 
48.48.48,48.48,48.48,49.7F.03AB 
7F,7F.7F,7F,7F,7F.7F.7F.7F.0B9B 
7F,7F,7F,7F,7F,7F,7F,7F,7F,138B 
61,41,41,41.41,41,41,41.41,19oD 
41,41.41.41,41,41,41,41.41,1D7D 
41,41,41.41,41.41.41.41,61.21 AD 
41,41,41,41,41,41,41,41,41,25BD 
41.41,41.41,41,41,41,41.41.29CD 
61,41,41,41.41,41,41,41,41.2DFD 
41.41.41,41,41,41.41,41.41,320D 
41.41,41,41,41,41.41.41.7F.365B 
7F.7F,7F.7F.7F,7F.7F.7F.7F.3E4B 
7F,7F.7F.7F,7F.7F.7F,7F,7F.463B 
68.48.48.48.48.48.48.48.48.4050 
48.48,48.48.48.48.48.48.48.50DC 
48.48.48.48,48,48.48.49.68.557D 

48.48.48, *48.48.48.48,48,48.59FD 
48,48.48.48.48,48,48.48.48.5E7D 
68.48.48.48.48.48.48.48.48.631E 
48,48,48.48.48,48.48.48.48.679E 
48.48.48,48.48,48,48.49,7F.6056 
7F.7F.7F.7F,7F,7F.7F.7F.7F.7446 
7F.7F,7F,7F,7F,7F,7F,7F,7F,7036 
61.41.41.41.41,41.41,41.41.8218 
41,41,41.41,41.41.41.41.41.8628 
41,41.41.41,41.41,41,41.61.8A58 
41.41.41.41,41,41,41,41,41.8E68 
41,41.41.41.41,41.41.41.41.9278 
7F.7F.7F.7F,7F.7F.7F.7F.7F.98B6 
7F,7F,7F.7F,7F,7F,7F,7F.7F.A0A6 
7F.7F,7F,7F.7F,7F.7F.7F.1C.A833 


21 



2105 DATA 05, 78 .A9,87,85,09,A9,5D,85.08,A9,03,8D » El, 02 .A2.AEBF 
2110 DATA OC,A9.00,85,07,9D.E2,02, CA,10,FA,20,DO,FB,A9, 86 ,B 66 F 
2115 DATA A0.DD.A2,4C.8D.4C.02.8C,4B,02.8E.4A.02.58,60,48.BC68 
2120 DATA 08.98.48,8A.48,A2,OF.BD,EO,02,48,CA.10.F9,A5,07,C339 
2125 DATA C9,00.DO,57.A9,11.85,07,AO,00.B1.08,C9.00,FO.3F.C9C0 
2130 DATA 20,07,87,20,07,87,4C,49,87,AO.00.B1,08.8D,El,02,CFO 1 
2135 DATA C 8 \ B1 , 08,8D. E3.02 ,C 8 . B1 . 08,8D.E5.02 ,C 8 . B 1 ,08.8D. D6F7 
2140 DATA E7,02,A9,00, 8 D,E2,02, 8 D,E4,02, 8 D.E 6 ,02, 8 D,E 8 .02.DE59 
2145 DATA 20.I8.FC,l8.A5,08,69,04,85,08,90.02,E6.09,60.A9.E3D6 
2150 DATA 87,85,09, A9,5D ,85,08, A9,1 1 ,-85,07 ,C6,07 , A2,00 ,68 , E99B 
2155 DATA 9D.EO.02.E8.EO,10.DO.F7,68.AA.68.A8.28.68.40.01,FlAC 
2160 DATA 03,08.08,02.02,01,00,01,03.08,08.02,02,01,00.01,F1DE 
2165 DATA 04,01 , 08,02,02,01 .08.01.04,01,00.02.02.08.08.01.F213 
2170 DATA 04.01 .08,02,02,05.08.01,04,01 .08.02,02,08,08.01 ,F25*4 
2175 DATA 04.05.08.02,02,01 .08,01 ,04,01.00,02.02.01,08.01.F286 
2180 DATA 04.05.08,02,02,05.08.01.04.05,08,02,02.05.08.01.F2CC 
2185 DATA 04.01,08.02,02,01.08.01.04.01.08.02,02.08.08.0l.F309 
2190 DATA 04.01,08.02,02.05,08,01.04,01,08.02,02,08.08,01,F34A 
2195 DATA 03.08.08.02.02.01 .08,01,03,08,08.02,02.01 ,08.01 .F38C 
2200 DATA 03.01.00.02.02.05.08.01.03,08.08.02.02,05.A5.08.F46B 
2205 DATA *03.08.08.02.01 .OC.08.01,03.08.08.02,02.08.08,01.F4BE 
2210 DATA 03,01.00,02,02,06,08,01,03,08,08,02,02,08,08,01.F4FD 
2215 DATA 04.03.08.02.01,OC.08.01.04,01,08.02,01,OC,08,01.F549 
2220 DATA 03,OC,08,02,02,06.08,01.03,OA.08.02,02.08,08,01,F59D 
2225 DATA 03,08,08.02,01,OC,08,01.03,08,08.02,02,08.08.01.F5F0 
2230 DATA 03.08,08,02,02,06.08,01,03,08,08,02,02,08,08,01.F63E 
2235 DATA 03.01.00,02,01,OC.08,01,03,01,00,02,01,OC,08.01,F676 
2240 DATA 03.01.00.02.01,OC.08,01.03.08,08.02,02,06,08,01,F6B8 
2245 DATA 03.08.08,02,02,08.08.01,04,01,08,02,02.01,08,01,F6FB 
2250 DATA 04,01,00,02,02,00,08,01.04,01,08.02,02,05,08,01,F734 
2255 DATA 04.01.08,02,02,08,08,01,04,05,08.02,02.01,08,01,F775 
2260 DATA 04.01.00.02.02,01,08,01,04,05,08.02,02.05,08,01,F7AB 
2265 DATA 04,05.08.02.02,08.08,01.04,01,08.02,02,01,08,01,F7EC 
2270 DATA 04.01,08.02,02,08,08,C1,04,01,08,02,02,05,08,01.F82D 
2275 DATA 04.01,08.02.02,08,08,01,03.08,08.02,02.01.08,01.F870 
2280 DATA 03,08.08.02.02.01.08.01,04.01,08.02.02.06,08,01.F8B1 
2285 DATA 04,01,08,02.02,08.08,01,03,OC.08.02.02,03.08.01.F8FA 
2290 DATA 03,OC.08.02,02.OC.08,01,03,OA,08.02,02,08,08.01.F954 
2295 DATA 03.OC.08.02,02,OC,08.01.04,01,08.02,02,03.08,01.F9A1 
2300 DATA 04.01.08.02.02,03.08,01,03.07,08.02,02.06,08,01,F9E3 
2305 DATA 03.07,08.02.02.OA.08.01.03,08.08.02,02.08.08,01.FA34 
2310 DATA 03,08.08,02,03,03,08,01.03,08,08.02.02,OC,08,01.FA84 
2315 DATA 03,08,08.02,03,03.08.01.03.08.08.02.02,08..08.01,FADO 
2320 DATA 03.08.08.02,02.08.08.01.03.01.00.02,02,08,08,01.FB11 
2325 DATA 03.08.08.02.02.C1 .00.01 .03.08.08.02.02.01.00.01 .FB43 



10 A=*897E : F=i97FF :L=100 : REPEAT : FOR A=A TO A-*-15 : READ Cf 
20 K = VAL< M H" «-CS > : S=S+K+65536* < S+K> 65535 ) : IF A<»F THEN POKE A,K 
30 NEXT : READ DS : IF S-VA*L( "+DS > THEN L*L+5:UNTIL A>F : END 
40 PING:PRINT"Erreur lign«":L 

100 DATA 03.0C,08.02,02,08.08.01,03.01,00,02,03,06,08.01,0044 
105 DATA 03.OC.08,02,03,03.08,01,03.OC.08.02,03.06,08.01.0097 
110 DATA 04.01,08.02,02,08,08,01.03,OC.08,02.02,08,08.01,00E5 
115 DATA 03.OA,08.02.03.03.08.01,03,OC,08,02,03,05,08,01,0135 
120.DATA 04,01,08.02.02,08.08,01.04,01,08,02,03,05,08,01,0177 
125 DATA 04.01.08.02.03.01.08,01.04,01,08.02.03,05,08,01,01B3 
130 DATA 03,08,08,02.02,08.08.01,03,08,08,02,02,08,08,01.0203 
135 DATA 04.01,08,02.03.01.08.01.04.01.08,02,03.05,08,01,023F 
140 DATA 03.OC,08.02,02.08,08,01.03,01.00,02,03,06,08,01,0283 
145 DATA 03.OC.08.02.03,03.08,01,03,01.00,02,03,06,08,01,02C3 
150 DATA 03.OC,08,02,02,08,08.01,04,06.08.02,02.08,08.01.0316 
155 DATA 04.03,08.02,03.03.08,01.03,OC,08,02,03.06,08.01,0361 
160 DATA 04.01,08.02,03,01,08.01.04,01,08,02.03.08,08,01,03A0 
165 DATA 04.01.08.02.03,05.08.01,04.01,08,02,03.08.08.01,03E3 
170 DATA 04,01.00.02,03,01.08,01.04,01,00,02,03.01,08,01.040B 
175 DATA 04.01 .08.02.03.05,08,01,04,01.08,02,03.08,08,01,044E 
180 DATA 03.OA.08.02.02.06.08,01 ,03,01 ,00.02,02,‘OA,08.01 .0491 
185 DATA 03.OA,08.02.03,01.08,01,03.01,00,02,03.06,08.01,04CD 
190 DATA 03.OA,08.02.02.06.08.01.03,01.00.02,02.06,08,01,050C 
195 DATA 04,01,08.02.02.OA,08,01,04,01,00,02,03,01,08.01.0544 
200 DATA 04.01,08.02.02.05.08,01,04,01,08.02.03,01,08.01,057F 
205 DATA 04.01.08.02,02.08,08,01,04.01.08.02,03.01,08.01.05BD 
210 DATA 03.08,08.02,02.05.08,01,03,01.00,02,02,05,08,01.05F8 
2 15 DATA 03,08,08,02,02,08.08.01.03,08,08,02,03,01,08,01,0642 
220 DATA 03.08,08,02,02.03,08,01,03,08,08,02,02,06,08,01,068B 
225 DATA 03,01,00.02.02,08.08.0l.03.08,08,02.02,OC.08.01,06D0 
230 DATA 04.03,08.02,02,08.08.01,04.03.08.02,02,08,08,01.0718 
235 DATA 03.OC,08,02,03,03,08,0l.03,0C,08.02,03,06,08,01,076B 
240 DATA 04.01,08.02.03,01,08,01,04,01,08.02,03.08,08.01,07AA 
245 DATA 04.01.08.02.03.05.08,01,04,01,08,02,03.08,08,01,07ED 
250 DATA 04.01,08.02.03.01,08.01,04.01.00,02,03,01,08,01,081D 
255 DATA 04.01.08.02.03.01.00,01,04.01,08,02.03.01,00.01,0845 


DATA 03.OC.08.02,02,06,08.01.03,OA.08,02,02.OA,08.01.089B 
DATA 03,01,00,02,03,01.08,01.03, OA. 08.02,03.06,08.01,08D7 
DATA 03,OA.08.02,02,06.08,01.04,01.08,02.02,06,08,01.091F 
DATA 03,OC,08.02,02,OA.08,01,04,03.08.02.02.OA.08.01,0973 
DATA 04,01,08.02,02.05.08,01.04,01.08.02.03.01,08.01,09AE 
DATA 04.01,08,02,02,08,08,01,04,01.08,02,03,01,08,01,09EC 
DATA 03,08,06,02,02,05,08,01,03,01,00 »02,02,05,08,01.0A27 
DATA 03,08,06.02.02,08.08,01,03,01.00.02,03,01,08.01.0A62 
DATA 03,08,08.02,02,03,08,01,03,08,08,02.02,06,08.01.OAAB 
DATA 03,01,00,02,02,08.08,01,03,08.08.02,02,OC,08.01.OAFO 
DATA 04,03,08.02,02,08,08,01,04,03,08,02,02.08,08.01.0B38 
DATA 03.OC.08.02.03.03.08.01,03.OC.08,02,03.06,08,01.0B8B 
DATA 04,01,08,02,03,01,08,01,04,01,08.02,03.05.08,01.0BC7 
DATA 04.01,08.02,03.01.08,01,04.01.08,02,03,05,08,01.0C03 
DATA 03,01,00,02,02,01.00,01.03,01.00,02,02,01,00.00.0C16 
DATA 00.00.00,00,00 ! 00,00,78.A9,8C,AO,82.BD,46,02,8C.1046 
DATA 45.02,58,60,08.48.98,48,BA,48.A9.44.85,00.A9.90.15F2 
DATA 85,01,A9,04.85,10,A9,AS,85,11,20,9D,8E,18,AD.91,1C3F 
DATA 8C.69.06,BD.91.8C.C9,22.DO,05,A9,04,8D,91,8C,18,2313 
DATA AD,89,8C,69,B4,8D.89,8C,90,14,EE,8D,8C.AD,8D.8C.2C05 
DATA C9,98,DO.OA,A9.90.9D,8D.8C,A9.44.8D.89,8C,68.AA.34C0 
DATA 68.A8,68,28.4C,22,EE.A9,05,85,01.A9.A5,85.02,A9.3B6E 
DATA 2D.85,03.A9,A5.85.04,A2.00,AO,00,B1,03,91,01,C8,414A 
DATA CO,1D,D0,F7,18,A9,28,65,03,85,03,90,02,E6.04.18.475B 
DATA A9.28,65.01.85.01,90,02,E6,02,E8,EO.1E,DO,DA.60.4E82 
DATA A9.A5,85.01,85,05,A9,04,85.00,A9.13.85,04,A9,8D,548D 
DATA 85,03,A9.5B,85,02,A2,12,AO,OE.B1.00,91,02,88,DO.5A9E 
DATA F9,AO,OE,B1,04,91.00,88.DO,F9,AO.OE.Bl,02.91.04,61D2 
DATA 88.D0.F9,18,A9,28,65.00.85.00.90.02.E6.01,18.A9.6B30 
DATA 28.65,04.85,04.90,02,E6.05,CA,DO.CC,60,00,00,00.6D8D 
DATA 00,00,00,00,00,00,00,00.00,00.00,00.78.A2.01.A9.6FS1 
DATA 8D.AO,88.86,OA,8D.46,02,8C,45,02.58,60,78,A9.22.7539 
DATA AO.EE.SD,45,02,8C,46.02.58,60,08.48.98.48.8A,48,7B29 
DATA C6.OA,A5,OA,DO,SA,A9,03,85,OA,A9,A8,8D.B2,8D,8D,82B7 
DATA C2. 8 D, 8 D,CD, 8 D,A9,4D,8D.B1, 8 D,8D.C1, 8 D, 8 D,CC, 8 D. 8 C 6 F 
DATA AO,07,AD,4D.A8,2A,8D,F7,8D,A2.IC,18.2C,F7,8D.50.93C9 
DATA 01.38,BD,4D,A8,2A,BD,F7,BD,09,40,29,7F,9D,4D,A8,9A72 
DATA CA,10.E8,18.AD.B1,8D.69.28,8D,B1.8D.8D.C1.8D.8D.A2FB 
DATA CC,8D,90,09,EE.B2.8D.EE.C2,8D,EE.CD.8D,88,DO,C2.ADB9 
DATA 68.AA.68,A8,68.28.4C,22,EE.00,00.78,A2.01,A9,8E.B419 
DATA AO.17,86,OB,8D.4C,02,8C,4B,02,A9,4C,8D,4A,02,58.B93B 
DATA 60,78.A9,40.8D.4A.02.58.60,08.48.98.48.8A.48.C6.BF55 
DATA OB.A5,OB.DO,3E.A9,03,85.OB.AO,29,AE,AE.AC,AD,D6,C6AE 
DATA AC.8D.AE.AC,18,AD,2D,8E.8D,30.8E,69,28.8D,2D,0E,CDE5 
DATA AD,2E,8E.8D,31,8E.90,03.EE,2E.8E,88,DO,EO,BE,EE,D68B 
DATA B2.A9.D6.A2.AC.BD.2D,8E.8E,2E.8E.8E.31.BE.A9,AE.DF40 
DATA 8D.30,8E.68.AA.60.A8,60.28,40,EA,EA,A9.B5.85.11.E745 
DATA A9.79.85.10.A2,13.A0.00.B1.00,91,10,C8,C0,05.DO.EEOO 
DATA F7,20,85,8E,DO,FO,60,18,A9,05,65,00,85,00,90,02.F48C 
DATA E6,01,18,A9,26,65,10,85.10,90,02,E6,11,CA,60,A2,FABB 
DATA 1E.A0.00.B1,00,91,10,CB,CO,06,DO,F7,20,BO,8E,D0,024E 
DATA FO,60.18,A9,06.65.00,85,00,90,02,E6,01,18,A9,28,07B1 
DATA 65,10,85,10,90.02.E6,11,CA,60.60,40,40,40.41.60.0D2F 
DATA 40,40.40.41,60,40,40,40,41,60,40,40,40,41,60,40,1192 
DATA 40,40,41,60,40,40,40,41,60,40,40,40,41,60.40.40,15F5 
DATA 40.41,60.40,40,40,41.60,40,40,40,41.60,40.40.40.1A58 
DATA 41,60,40,40,40.41,60,40,40,40.41,60,40,40,40,41.1EBC 
DATA 60.40,40,40,41,60,40,40.40,41,60,40,40.40,41,60,233F 
DATA 40,40,40,41,60,40,40,40.41,6F,40,40,41,79,7F.60.2829 
DATA 40.43,7D,7F.60,40.43,7D.7F,60,40,43.7D,7F.60.40.2E06 
DATA 43,70,6F,40,40,41,79,60,40,43,70,41,60,40,47,78.3362 
DATA 41,60,40,47,78,41,60,40,47,78,41,60.40,47,78,41,3883 
DATA 60.40,43,70,<41,60,47,60,40,41,60,4F,70,40,41,60,3D9F 
DATA 4F,70,40,41.60,4F,70,40,41,60,4F,70,40,41.60.47.42C6 
DATA 60,40,41.60,40,40.40,41,60,47,60,40,41,60,4F,70,47AF 
DATA 40,41,60.4F,70,40,41,60,4F,70,40,41,60.4F,70,40,4CCF 
DATA 41,60,47.60,40,41,6F,40,40,41,79,7F,60.40,43,7D,5220 
DATA 7F,60,40.43,7D,7F,60,40,43,7D,7F,60.40.43,7D,6F,582C 
DATA 40,40,41,79,60,40,43,70,41,60,40,47,78,41.60.40.5D3A 
DATA 47,78,41.60,40,47,78,41,60,40,47.78,41,60,40,43,625D 
DATA 70,41,60.40.40.40.41,60,40,43,70,41,60,40,47,78,6762 
DATA 41 ,60.40,47,78,41 ,60,40,47,78,41 ,-60,40.47,78,41,6C03 
DATA 60.40,43,70,41.60,47,60.40,41,60,4F,70,40,41,60,719F 
DATA 4F,70,40,41,60,4F,70,40,41,60,4F,70,40,41,60,47,76C6 
DATA 60.40,41,6F,40,40.41,79.7F,60.40,43.7D,7F,60,40.7C4E 
DATA 43.7D.7F.60.40.43,7D,7F.60,40,43,7D.6F,40,40,41,81FC 
DATA 79,60,40.40.40.41.03.42,40,40.40,50,03.42.40.40.85F0 
DATA 40.50.03.47,40.40.40.78.06,45.40,40.40,68,06.42,89BD 
DATA 40.40,40.50.07,40.40.40.40,40,07,43,40,40,40.58,8D76 
DATA 07.43.01.4C.07.50.07.43.01,5B.07,58,07,43,01.6F.902B 
DATA 07,58,07.43,01,7D.07,58.07,47.01.6F,07,58,07,58,932D 
DATA 66.4A.5B.46.03.5F.73.67,79.7F.07.7F.5F.7D.5F.79,98EC 
DATA 03.76,6F.73.63.65.07,6F,77,7F,7A,5E,03,57,5F.59,9E65 
DATA 7D.7E.03.49.72.76.73.74.06.4E.7D,7F.4F,78,06,4F,A3E7 
DATA 7F.7F.7F,7C,06,4F.7F.7F.7F.7C.06.47,7F,7F.7F.78.AA70 
DATA 06.47.7F,7F,7F.78,03,40,40,40.40,40.06,43,7F,7F,AF3C 
DATA 7F,70,06.42,6A,6A,6A.70,06,43.55,55,55,70.06,41,B420 
DATA 55,55.55,60,06,41.7F.7F.7F.60.03.40,40,5F,40,40,B905 
DATA 03.40.41.7F,70.40.03,40,47,7F,7C,40,03,40,4F.7F,BDBE 
DATA 7E.40.03.40,5F.7F,7F,40.03.40.7F,7F,7F,60.03,40.C28F 
DATA 7F,7F,7F,60,03,41 ,7F, 6 A ,7F,70,03,41,7E,40,47,70.C841 
DATA 03.41.78.6A.51.70,03.41.7E.50.6F.70,03.40,7F,5F,CD3A 
DATA 6F,60,03.40,7F,6F.5F,60,03.40.5F,6E,7F,40.03.40,D20B 
DATA 4F.76,7E.40.03.40.4F.79.7E.40.03,40.47,79.7C,40,D716 
DATA 03.40.43,79.78,40,03,40,43,79.78,40,03,40,41,79,DB81 
DATA 70.40,03.40,41.79,70,40,07,40,41,40.50.40,07,40,DF7D 
DATA 41,7F.70.40.07.40.40,7F.60.40.07.40,13,7F.78.40,E454 
DATA 07.40,43.7F,78.40.07,40,41,7F,70,40.07,40.41,7F,E0D3 
DATA 70,40,07,40,40,4E.'40.40,07,40,40,71,60,40.03.40,ECB3 
DATA 40,44,40.40,03,40,44.44,60,40.03.40,46,4E,78,40,F0B1 
DATA 03,40,44.44,60.40.03.40.42,45,40.40,03,40.41.45.F42F 
DATA 40,40,03,40,41.45,40.40,03,40,40,69.40.40.07.40,F7AB 
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770 DATA 70,69,47,60,07,43,7C,6A,7F,70,07,47,7F, 4A,7F, 7C,FD5C 
775 DATA 07,4F,5F,55,7F,5E,07,5C,46,55,7C,47,07,58,43,55,01FB 
780 DATA 60,41,07,70,5F,6B,70,40,07,61,7E,7E,7F,40,07,43,0706 
785 DATA 7D,7E,7F,60,07,47,79,7E,5F,70,07,4F,70,7F,47,78,0CF8 
790 DATA 07,4F,60,7F,43,78,07,4F,40,5E,41,70,07,46,40,5E,1184 
795 DATA 40,7C,07,42,41,4C,40,7C,02,40,47,64,07,5C,02,40,1564 
800 DATA 47,70,07,58,02,40,43,70,07,48,02,40,43,60,07,48,18F2 
805 DATA 02,40,47,40,07,40,02,40,4E,40,07,40,02,40,5E,40,1BF9 
810 DATA 07,40,02,40,40,4C,5E,40,02,43,63,40,72,40,02,40,1F94 
815 DATA 76,6C,62,40,02,40,5C,7E,62,40,02,40,40,5B,64,40,2457 
820 DATA 02,40,40,58,40,40,02,40,40,58,40,40,05,40,40,40,27D0 
825 DATA 78,40,05,5C,58,79,70,40,05,7E,7D,7D,7C,40,05,7C,2D30 
830 DATA 70,7C,5C,40,05,7B,5B,5D,63,40,05,57,67,63,77,60,329C 
835 DATA 05,47,67,67,77,60,05,5B,5B,5B,67,60,05,70,70,7C,37E3 
840 DATA 5B,40,05,7C,70,7D,7C,40,05,5B,5B,59,7C,40,05,47,3CD0 
845 DATA 67,66,78,40,05,47,67,6F,40,40,05,43,5B,4F,58,40,4181 
850 DATA 05,40,7C,76,7C,40,05,40,7D,78,7C,40,05,40,59,7B,4683 
855 DATA 58,40,05,40,46,77,60,40,05,40,4F,47,60,40,05,40,4A7D 
860 DATA 4F,5B,40,40,05,40,46,7C,40,40,05,40,40,7C,40,40,4EAF 
865 DATA 05,40,40,58,40,40,02,40,7C,4C,40,40,02,40,7E,4C,52A2 
870 DATA 5F,40,02,43,7F,44,5F,60,02,47,7F,76,7F,70,02,47,577E 
875 DATA 7F,73,7F,78,02,47,7F,5A,5F,70,02,41,7F,4A,4F,60,5D13 
880 DATA 02,41,7E,4A,4F,60,02,40,70,5E,46,40,02,40,40,5F,6144 
885 DATA 40,40,01,40,41,7F,60,40,01,40,47,7F,78,40,01,40,6565 
890 DATA 4F,7F,7C,40,01,40,4F,7F,7C,40,01,40,5F,7F,7E,40,6A97 
895 DATA 01,40,5F,7F,7E,40,01,40,5F,7F,7E,40,01,40,5F,7F,6F70 
900 DATA 7E,40,01,40,5F,7F,7E,40,01,40,5F,7F,7E,40,01,40,7429 
905 DATA 4F,7F,7C,40,01,40,4F,7F,7C,40,07,40,4F,7F,7C,40,794F 
910 DATA 07,40,47,7F,78,40,07,40,47,7F,78,40,07,40,47,7F,7DE6 
915 DATA 78,40,07,40,43,7F,70,40,07,40,43,7F,70,40,07,40,8257 
920 DATA 41,7F,60,40,07,40,40,5E,40,40,05,7F,7F,7F,7F,7F,879C 
925 DATA 05,7F,7F,7F,7F,7F,06,7F,7F,7F,7F,7F,06,7F,7F,7F,8E20 
930 DATA 7F,7F,40,40,40,40,40,40,40,40,40,40,40,40,40,40.929E 
935 DATA 40,40,40,40,05,7F,40,4C,43,7C,05,7F,40,4C,43,7C,973C 
940 DATA 05,70,70,73 ,_43,43,05,70,70,73,43,43,05,70,70,73,9C50 
945 DATA 43,43,06,70,71,61,63,43,06,70,71,61,63,43,06,7F,A137 
950 DATA 41,61,63,7C,06,7F,41,7F,63,70,06,70,71,7F,63,4C.A6F1 
955 DATA 06,70,71,61,63,4C,05,70,71,61,63,4C,05,70,71,61,AC25 
960 DATA 63,43,05,70,71,61 ,63,43,05,7F,41 ,61 ,.63,43,05,7F,BIOS 
965 DATA 41,61,63,43,40,40,40,40,40,40,40,40,40,40,40,40,B550 
970 DATA 40,40,40,40,40,40,06,7F,7F,7F,7F,7F,06,7F,7F,7F,BAD4 
975 DATA 7F,7F,05,7F,7F,7F,7F,7F,05,7F,7F,7F,7F,7F,01,40,C113 
980 DATA 47,7F,70,40,01,40,5F,7F,7C,40,01,40,7F,7F,7E,40,C661 
985 DATA 01,41,7F,7F,7F,40,01,43,7F,7F,7F,60,03,43,7F,7F,CBC5 
990 DATA 7F,60,03,47,7F,7F,7F,70,03,47,7F,7F,7F,70,03,4F,D164 
995 DATA 7F,7F,7F,78.03,4F,7F,7F,7F,78,02,4F,7F,7F,7F,78,D7E6 
1000 DATA 02,4F,7F,7F,7F,78,02,4F,7F,7F,7F,78,02,47,7F,7F,DDB9 
1005 DATA 7F,70,02,47,7F,7F,7F,70,05,43,7F,7F,7F,60,05,41,E349 
1010 DATA 7F,7F,7F,40,05,40,7F,7F,7E,40,05,40,5F,7F,7C,40,E8E6 
1015 DATA 05,40,4F,7F,78,40,06,40,47,7F,70,40,06,40,43,7F,ED75 
1020 DATA 60,40,06,40,43,7F, 60,40 ,'07,40,41,5D ,40,40,07,40,F169 
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41,49 
07,40 
60,40 
73,7F 
02,5E 

60.40 
60,01 
02,40 
7F, 7F 

70.40 
01,5F 

40.40 
7E, 40 
01 ,43 

78.40 
40.4C 
04,40 

78.40 
4F.7F 
04,40 
7C,40 
4F,7F 
04,40 
7F, 78 
40,7F 
01,40 
7F,70 
5F, 7F 
01 ,5F 
7E, 40 
43,7F 
07,40 

60.40 
47,7F 
07,40 
7C, 40 
60,40 
02,43 
60,40 
40,46 
03,47 
7F, 7F 
7F, 7F 
03,7F 
7F, 7F 
7F, 7F 
03,41 
7E ,40 


,40,40, 
,43,55, 
,02,40, 
,7E,40, 
,53,60, 
, 02 , 7C , 
,43,78, 
,60,01, 
,02,41, 
,7F,7F, 
, 7E , 40 , 
,01,7F, 
,40,40, 
70,40, 
,03,40, 
,40,40, 
,43,'7F, 
04,40, 
,7G, 40 , 
,4F,7F, 
04,40, 
,7C,40, 
,7F,7F, 
04,4F, 
,40,40, 
,4F,7F, 
,01,4F, 
7D,7F, 
,7E,7F, 
,07,40, 
,40,40, 
.47,78, 
,07,40, 
,70,40, 
,7E,7F, 
,07,40, 
,40,41, 
,7F,70, 
,02,40, 
,47,60, 
,7F,7F, 
,03,5F, 
,7F,7F, 
7F,7F, 
03,5F, 
,7F,7C, 
,7F,7F, 
, 00 , 00 , 


07,40, 

60.40, 
59,7E, 
02,4F, 

40.40, 

60.40, 
02,50, 
5F,7E, 
40,01, 
01,4F, 
4F,7C, 
7F,40, 
01,5F, 

40.40, 
43,73, 
03,40, 

70.40, 
4F,7F, 
04,40, 
7C,40, 
4F,7F, 
04,40, 
7F,40. 
7F,7F, 
01,40, 
7E,40, 
7F,6F, 
01,7F, 
7F,7E, 
41,7F, 
07,40, 

60.40, 
47,7F, 
07,40, 
7C,40, 
5F,7B, 
02,4F, 
5F,7C, 
40,7D, 
03,40, 
7F,7E, 
7F,7F, 
03,7F, 
7F,7F; 
7F,7F, 
03,47, 
7F,70, 
00 , 00 , 


41.41.40, 
07,40,42, 
40,40,02, 
58,7F,70, 
02,5E,60, 
7E,40,02, 
60,01,4F, 
02,41,40, 
7F,6F,01 , 
7C,40,5F| 
01,7F,7F, 
40,40,01, 
5E,40,40, 
03,40,43, 
70,40,03, 
40,5E,401 
04,40,47, 
7C,40,04, 
4F,7F,7C, 
04,40,4F 
7C,40,04, 
5F,7F,7E, 
04,41,7F, 
7F,7C,01 , 
40,5E,40, 
01,41,7F, 
7F,7C,01 , 
5F,7F,7B, 
01,47,7F, 
40,40,07, 
43,7F,58, 
07,40,79, 
60,40,07, 
4F,7F,70, 
07,40,7D, 
78,40,07 

70.40.41, 
02,40,7F, 
40,40,02, 
7E,46.5F, 
03,4F,7F, 
7F,7F,03, 
7F,7F,7F, 
03,7F,7F, 
7F,7E,03, 
7F,7F,7F, 
03.40,7F, 
00 , 00 , 00 , 


40,07, 
6 A, 60 , 
41,7F, 
40,02, 
7C,40, 

78.60, 
7C,02, 
01,7F, 

41.40, 
7E,01, 
40,43, 
7F,7F, 
40,01, 
7F,70, 

40.40, 
40,04, 
7F,78, 
40,4F, 
40,04, 
7F.7C, 
40,4F, 
40,04, 
7F,7F, 

40.40, 
40.01, 
7F,5F, 
5F,7F, 
7F,01, 
7F,7F, 

40.41, 
40,07, 

63.60, 
40,47, 
40,07, 
77,7C, 
40,47, 
7F,02, 
78,7F, 
40,40, 
78,03, 
7F,7F, 
7F,7F, 
7F,03, 
7F,7F, 
5F,7F, 
70,03, 
73,7F, 
00 , 00 , 


40,43, 
40,07, 
7F,60, 
4F,56, 
40,02, 
40,43, 
50,60, 
7F,02, 
01,7F, 
5F,7E, 
70,01, 
40,40, 
4E.5C, 
40,03, 
5E.40, 

40.40, 
40,04, 
7F,7C, 
40,4F, 
40,04 
7F,7C, 
40,5F, 
60,04, 
7F,40, 
40,43, 
60,01, 
7F,7F, 
7F,7F, 
78,01, 
7F,40, 
40,43, 
40,07, 
7F,70, 
40,5F, 
40,07, 
7B,70, 
47,7F, 
60,02, 

46.40, 
43,7F, 
7E.03, 
7F,7F, 
7F,7F, 
7F,03, 
7F.7F, 
43,7F, 
60,03, 
00 , 00 , 


7F,60, 

40.43, 
40,02, 

40.40, 
7C,60, 
40,02, 
01,5F, 

41.40, 
4F,01, 
40,5F, 
7F,7F, 
40,01, 

40.40, 
40,47, 
40,03, 
7F,40, 
40,47, 
40,04, 
7F,7C, 
40,4F 
40,04, 
7F,7E 
47,7F, 
40,01, 
7F,70, 
47,7F 
7E,01, 
7F,7F, 
40,7F, 
40,07, 
7F,70, 

40.44, 
40,07, 
7F,78, 
40,73, 
40.02, 
40,47, 
40,4F, 
40,03, 
67,7F, 
5F,7F, 
7F,03, 
7F,7F, 
7F,7F, 
7E,03, 
7F,7F, 
40,4F, 
00 , 00 , 


40,F565 
7F,F980 
43.FDDF 
40,02CE 
47,0742 
70,OBCD 
7E.0FF7 
01,137D 
43,1782 
7E,1D14 
40.222E 
7F.26AC 
40.2AD3 
40.2EC6 
40.32CB 
40.36BB 
7F.3B3D 
40.3FD5 
40.44FB 
7F.49A9 
40.4E45 
40,538F 
7F.58FB 
40.5DFF 
40,6250 
5F,6742 
7E,6D44 
7F,73F2 
7F.79CB 
40.7DDB 
40,8277 
5F,86CA 
40.8B1B 
40,9033 
77,955B 
7F,9A2A 
7E,9EE5 
7D.A41A 
40.A7C4 
7C,ACF6 
7F.B2E8 
7F.B944 
7F.C03C 
7F.C6B8 
4F.CCC2 
78,D339 
61,D871 
00.D92F 


PROTEGEZ 
VOS REVUES ! 

BON DE COMMANDE CLASSEUR (port inclus) 


NOM 


Prénom 


Adresse 


Code postal 


VUle 


Je désire recevoir 



Classeur(s) THEORIC : 80 F 
Classerais) AMSTAR : 60 F 
Classeur(s) PCompatibles Magazine : 60 F 




Classerais) CPC : 60 F 
Classerais) MEGAHERTZ : 80 F 

Signature 


Ci-Joint chèque de 


F au nom des Editions SORACOM - La Haie de Pan -35170 BRUZ 
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I.R I LIST 


M algré tout le soin que la rédaction de THEORIC apporte à la vérifica¬ 
tion des programmes publiés dans la revue, il subsiste quelques sour¬ 
ces d'erreurs possibles qui font qu'un programme peut ne pas fonc¬ 
tionner normalement. Grâce à VERILIST, ce risque est désormais fortement 
réduit ! 


Un bug caché dans une arbores¬ 
cence d'un gros programme risque 
toujours de passer inaperçu, malgré 
VERILIST... Voilà, nous annonçons 
la couleur et avouons que, pour une 
erreur de conception ayant échappé 
au contrôle rigoureux effectué par la 
rédaction, ce programme est... inu¬ 
tile ! Mais, pour le reste, lisez plutôt 
ce qui suit ! 

Quelles sont les sources d'erreurs 
possibles ? 

La fabrication de la revue peut, mal¬ 
gré le soin qu'on y apporte, être cou¬ 
pable : un coup de ciseaux malheu¬ 
reux lors de la mise en page d'un lis¬ 
ting et le voilà amputé de quelques 
caractères ; une bavure lors de l'im¬ 
pression et on ne sait plus si tel 
caractère est un I ou un I, un O ou 
un 0... Mais la source d'erreur la plus 
importante reste encore la saisie... 
De longues heures devant un écran 
à taper le bel utilitaire proposé par 
THEORIC peuvent être génératrices 
de «Syntax error» incongrues et 
inexplicables en apparence. Et pour¬ 
tant, elles existent ! 

VERILIST (tel Zorro) va arranger tout 
cela ! Ce court programme n'est en 
fait que la routine LIST de L'ATMOS, 
modifiée pour afficher derrière cha¬ 
que numéro de ligne une somme de 
contrôle. Un simple octet erroné ou 
déplacé et cette somme sera diffé¬ 
rente (regardez, pour vous en con¬ 
vaincre, l'exemple 2 par rapport au 
témoin n° 1 ). 

Dès le numéro 34 de THEORIC (pour 
vous laisser le temps de taper ce lis¬ 
ting) et à chaque fois que cela sera 
possible, les listings que nous publie¬ 
rons pour l'ATMOS (hélas pas pour 
ORIC-1 ni TELESTRAT, du moins 
pour le moment) seront listés avec 
VERILIST. 



Mode d'emploi 

— Taper VERILIST, le sauvegarder, 
faire RUN puis 

— CSAVE "VERILIST",A # B300, 
E0B3E6 (il utilise l'espace HIRES, 
donc rester impérativement en mode 
TEXT tant qu'il sera en mémoire...) ; 

— Le listing du programme BASIC 
à vérifier étant en mémoire, taper 
CALL # B306 : les lignes apparais¬ 
sent à l'écran suivies de la somme 
de contrôle. Si vous possédez une 
imprimante, tapez CALL # B300 pour 
obtenir le listing. Comparez avec le 
listing publié dans THEORIC. 
ATTENTION ! Lorsque vous effec¬ 
tuez la saisie d'un listing de THEO¬ 
RIC, ne tapez surtout pas les nom¬ 
bres entre parenthèses situés der¬ 
rière les numéros de lignes. 


Exemple 1 

40 (138) ADRMB300 

50 ( 201J FORNM95O0TOI95E6 

fcû (152) PüKEADR.PEEK(N) 

73 i 33* ADR=ADft+l:NEXT 

100 • 15: FDRÎi=#B300TO#B3Efc 

200 i 104) 1FPEEK(N)=#95THENP0KEN,IB3 

300 (152) NEXT 


Exemple 2 

40 i 133) «DR=#B300 

50 ( 254) FORN=#9500TO#95F6 

e>0 , 152) POKEADR.PEEK(N) 

70 i 74) ABR=ADft+I1NEXT 

100 ( 15) FORN=#B30ÛTOiB3E6 

203 i 104) IFPEEK(N)=i 9 5THENP0KEN,KB3 

300 i 152) NEXT 
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== TELESTRAT == 


TELESTRAT. Configuration de base comprenant : 

Unité centrale, lecteur de disquettes 3” double face, 400 K, 
langages Hyper-Basic et Télématic, système d’exploitation 
Stratsed, câbles péritcl, minitel et l’alimentation secteur. 

Relié au minitel, Telestrat, devient “le Serveur le moins 
cher du monde” (Minitel magazine 02/87). 

Editeur de pages, d’arborescences et BAL intégrés. 


L’ensemble ORIC TELESTRAT : 


3990 F 


NOUVEAU 


STRATORIC EST ARRIVE 


Il vous permet d’utiliser votre TELESTRAT en mode ému¬ 
lation Oric 1 ou Atmos, pour charger vos K7 ou vos dis¬ 
quettes Sedoric ou convertir XLdos ou Tdos. 

Transférez vos K7 sur disquettes, jeux, utilitaires... 

Trois ordinateurs en un : 

Oric 1, Atmos avec microdisc et Telestrat. 

Cartouche + Sedoric complet + manuel Atmos .- 

et notice d’emploi du STRATORIC | 490 F 



Assembleur double passe 6502 
Télé-Ass en cartouche contient tous les 
mnémoniques du moniteur, et n’occupe 
pas l’espace utilisateur. 

Complet avec manuel : 


590 F 






EXTENSION RAM 64 K 


Ce pseudo disque de 64 Ko, charge 5 à 18 fois plus rapide¬ 
ment vos fichiers et programmes, n’inhibe pas les interrup¬ 
tions donc le micro ne s’arrête plus lors des accès disque. 
Livré avec une disquette de programmes pour installer votre 
disque virtuel et mode d’emploi. 

Cartouche RAM-64K : 


690 F 


REPRISE DE VOTRE ORIC 

Pour l’achat d’un Telestrat, votre ancien 
Oric 1 ou Atmos, avec son alimentation 
et ses cordons, vous est repris pour la 
somme de : ^90 F 


PERIPHERIQUES ET ACCESSOIRES 


Microdisc supplémentaire 

Le Telestrat peut en avoir 4 . 1790 F 

Boîtier multiprint permet de connecter 
plusieurs Telestrat sur 1 imprimante 

modèle 4 voies sans câbles. 1450 F 

modèle 8 voies sans câbles. 1950 F 

Moniteur couleur 36 cm RVB + son. 2490 F 

Moniteur monochrome vert . 1150 F 

Modulateur N/B avec câbles . 345 F 

Câble péritel. 120 F 

Joystick Spectravideo . 95 F 

Souris pour TELESTRAT . 690 F 


Câble imprimante type Centronic. 180 F 

Disquette vierge 3”. 39 F 

Câble moniteur monochrome. 80 F 

BIENTOT DISPONIBLES 

PACKAGES RADIO AMATEURS : 

RTTY et Morse + utilitaires. 390 F 

SSTV et Fac-Similé + utilitaires. 390 F 

PACKAGES ELECTRONIQUES 

Apprendre l’électronique sur Oric. NC 

Interfaces pour Oric . NC 


Complément de l’assembleur 
révélera tous les secrets du sy 

Le manuel développeur : 

- 1 

il vous 
stème. 

190 F 

FIG-FOR'I H 500 mots, manuel 
plet 75 pages. Intègre toutes les 
système du Telestrat, écran hires 
veur, disques... 

Télé-Forth cartouche : 

très com- 
fonctions 
, son ser- 

490 F 




I HORLOGE TEMPS REEL 

I 


Indispensable pour avoir l’heure, la date du 
jour même si le lecteur a été interrompu, la 
pile dure plus de deux ans, applications en 
basic, en serveur, jeux etc... 
avec manuel et listing 
de programmes. 


590 F 
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== ATMOS = = 


Le Micro-ordinateur Atmos, compact, performant doté 
d'un basic puissant, d'un synthétiseur musical, d'un gra¬ 
phisme en haute résolution en 8 couleurs, dispose d'une 
vaste gamme de logiciels, dans tous les domaines d’acti¬ 
vité : jeu, programmation, éducation, dessin, musique, 
etc... 

Il peut recevoir de nombreux périphériques, magnéto, lec¬ 
teur de disquettes, interface joystick, horloge temps réel, 
carte relais, etc... 

Livré avec 2 K7 de jeu, 1 K7 démo, 
câbles K7, peritel, alim et manuel 


990 F 


LECTEUR DE CASSETTES 

Spécialement conçu pour les micros, et en 
particulier pour l’ORIC Atmos, ce magnéto 
K7 est équipé d’un buzzer qui vous permet 
de suivre le déroulement de vos programmes. 
Il est doté d’un compteur pour repérer vos 
bandes et de prises DIN ou Jack pour la liai¬ 
son au micro-ordinateur. 


350 F 




rr 


INTERFACE JQYgTlÇK 

PROGRAMMABLE 
Il vous permet d'utiliser vos jeux 
et programme avec un joystick à la 
place du clavier. 

11 se programme en appuyant sur 
la touche du clavier et en mettant la 
manette dans la position que vous 
souhaitez pour cette touche. 

Il permet également d'éviter dans 
certaines applications d'utiliser le 
clavier. 

Interface + manuel.... 350 F 
Joystick Spectravideo. 95 F 


I ECTEU.R PE nisoVETiES 3". POUR ATMOS 






Le Microdisc est doté d’un puissant système d’exploitation qui ajoute 
plus de 90 instructions complémentaires à votre Atmos. Fichiers séquen¬ 
tiels ou à accès directs, etc... 

Son contrôleur intégré peut gérer 3 lecteurs complémentaires. 

Les chargements de programmes ou de fichiers sont quasi instantanés 
(32 Ko en 2,5 sec). 

Vous pourrez transférer vos K7 sur disquettes, ou copier des program¬ 
mes écrits sous Dos V1.1, XL dos ou Tdos grâce à l’utilitaire convi¬ 
vial Convert. 

NOUVEAU : Le Microdisc est maintenant livré en double têtes ce qui 
évite de retourner la disquette. 400 Ko en ligne. 

GRATUIT : Pour l’achat du microdisc, Oric vous offre la transfor¬ 
mation gratuite de votre Oric qui le dotera des dernières modifications, 
horloge renforcée, péritel alimentée, fiabilisation du charge ment K7... 

Microdisc + alim + Sedoric + manuel. 


2690 F 


J/ 


Microdisc Esclave B,C,D sans alim . ... 

1490 F 

Modulateur N/B avec câble Atmos . . . . 

345 F 

Disquette Sedoric + manuel . 

. 490 F 

Imprimante Cosmos 80. 

2890 F 

Alimentation pour 2 Microdisc. 

450 F 

Câble imprimante pour Atmos. 

. . 180 F 

Carte contrôleur seule (pour 4 lecteurs) . 

990 F 

Ruban de rechange pous Cosmos 80. . . 

100 F 

Câble nappe 34c pour Microdisc. 

120 F 



Transformation Oric 1 en Atmos FR ... 

490 F 

LIBRAIRIE 


Echange standard carte anglaise en état 


Guide de l’Oric 1 . 

95 F 

contre carte FR, péri-alim,garantie 1 an. 

450 F 

50 Programmes pour Oric 1 . 

90 F 

Moniteur couleur 36 cm RVB + son ... 

2490 F 

Manuel de l’Atmos. 

50 F 

Moniteur monochrome vert. 

1150 F 

L’Oric à nu F. Broche. 

151 F 

Câble péritel auto-alim. pour Oric FR .. 

150 F 

Communiquez avec votre Oric . 

145 F 

Câble moniteur Monochrome. 

80 F 

Interfaces pour Oric. 

59 F 

K7 vierge C15 par 10. 

100 F 

Mieux programmer sur Oric. 

110 F 

Disquette 3” vierge l’unité . 

39 F 

Apprenez l’électronique sur Oric. 

110 F 
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== LOGICIELS == 


TKLKSTRAT 


Disquettes sous Stratsed 

Dangereusement vôtre. 200 F 

Arcades N°1 Harrier attack 
Super météor,Ultima zone 200 F 
Arcades N°2 Flight simul. 

Galaxian, Rat-splat. 200 F 

Télé-CHESS. 200 F 

Méphisto ( avent. FR )... 155 F 

Musirama (éducatif). 195 F 

Clavidact (éducatil). 185 F 

Télékube (Rubik's). 200 F 

Nibbler (arcade). 190 F 

Défence Force (arcade)... 190 F 

Ludico (éducatif). 205 F 

Metho-Loto (loto). 195 F 

StratMon (ass.désass).... 200 F 

.Gestion d'adresses. 590 F 

Lisbal (gestion BAL). 1000 F 

Cartouches 

TELE-ASS + manuel. 590 F 

TELE-FORTH +manuel. 490 F 
STRATORIC +disc+man. 490 F 

ROMORIC 1. 200 F 

ROMATMOS. 200 F 

RAM 64 Ko +disc+man. 690 F 


ATMOS 

Cassettes 

■Méthode Assimil Anglais .. 250 F 
Méthode Assimil Espagnol 250 F 

Cours de Basic. 150 F 

Author (trait.de texte). 100 F 

--LBond(Dang. vôtre arc/av). 150 F 

3D invaders (arcade). 40 F 

xChess II (réflexion). 40 F 

^Defence force (arcade). 40 F 

House of death (aventure).. 40 F 
Kilbum encounter (avent.). 40 F 
Novotnik puzzle (réflexion). 40 F 

HDric Munch (arcade). 40 F 

Rat-splat (arcade). 40 F 

^JSuper breakout (arcade).... 40 F 

Super méteor (arcade). 40 F 

Ultima zone (arcade). 40 F 

Disquettes sous Sedoric 
Arcades N°1 Harrier attack 
Super météor, Ultima zone. 200 F 
Arcades N°2 Flight simulât. 

^Galaxian, Rat-splat. 200 F 

J.Bond(Dang.vôtre arc/av). 200 F 
Méthode Assimil Anglais... 300 F 
Méthode Assimil Espagnol. 300 F 


COMPATIBILITE DLS LOGICIELS ORIC 

Disquettes Sedoric: Oric 1 & Atmos, Telestrat avec Stratoric 
K7 Oricl: Atmos+Sedoric, Telestrat+Romoricl ou Stratoric 
K7 Atmos:Oric 1+Sedoric, Telestrat+Romatmos ou Stratoric 


ORIC 1 

Cassettes 

Acheron's rage (arcade).... 40 F 

Annuaire (familial). 40 F 

Assemb.desass(utilitaire).. 40 F 

Cam 3 (arcade). 40 F 

Casse-briques (arcade). 40 F 

Centipede (arcade). 40 F 

Chenille infernale (arcade). 40 F 
J.Bond Dang.vôtre(arc/av). 150 F 

Dico 5 (éducatif). 40 F 

Dracula's revenge (arcade). 40 F 

Europe (géographie). 40 F 

Galaxians (arcade). 40 F 

Galaxion (arcade). 40 F 

Gastronom (arcade). 40 F 

Geofrance (éducatif). 40 F 

Gencar (utilitaire). 40 F 

Gestion de stock. 40 F 

Godilloric (Arcade). 40 F 

Harrier attack (arcade). 40 F 

1 lopper (arcade). 40 F 

Hyper master mind(refl.).. 40 F 

Ice Giant (Arcade). 40 F 

Intertron (arcade). 40 F 

Invaders (arcade). 40 F 

Le protector (arcade). 40 F 

Orible (arcade). 40 F 

Oric-mon (utilitaire). 40 F 

Puissance 4 (réflexion). 40 F 

Starfighter (arcade). 40 F 

The ultra (arcade). 40 F 

Word process.(trt de texte). 40 F 


RECHERCHE D'AUTEURS 

Si vous avez écrit un logiciel, rejoignez 
l'équipe Oric pour vous faire éditer. 

Si vous avez réalisé une interface géniale, 
elle peut vous rapporter:contacte/. nous. 
Bref, si vous avez des idées que vous 
souhaitez partager avec les Oriciens, 

\ Ecrivez-nous. Qu'on se le dise !!! 




PROCHAINEMENT POUR VOTRE ORIC 

Toute la gamme LORICIEL va être éditée par 
Oric intem. sur disquettes Sedoric et Stratsed. 

Packages RADIO-AMATEUR, RTTY.SSTV. 
Fac-similé, Morse. Packet Radio sur disquettes 
Packages ELECTRONIQUES, 
apprendre l'électronique avec des kits 
d'interfaçage, des logiciels et manuels. 


ORIC-NEWS JUIN 87 


PAGE 3 



Bon de commande à retourner chez ORIC International 
Je désire recevoir les matériels ou logiciels suivants : 


39 RUE VICTOR MASSE 

75009 PARIS 

TEL. : 16 (1) 42.81.20.02 

TLX : 649385 F 

Minitel : 16 (1) 42.81.22.72 

Boutic’Oric ouverte du 

mardi au vendredi de 9 h à 13 h 

et de 14 h à 18 h. 


QTE 

DESIGNATION 

PRIX 

S/TOTAL 














Nom :. 

Adresse :. 

Code postal :. Ville : 

Téléphone 


TOTAL = 


+ PORT 


35 F 


Si contre/rbt 


50 F 


Matériel possédé :. ^ REGLER : 

Signature : (Parents si mineurs) 


i 
















































































































VOUS AVEZ DIT 
"QUALITE COURRIER" ? 

Wolfram LUTHER 


REM GUf-tLirE COURRIER 

REM GENITEUR ÜES 96 CARACTERES ASCII 32- 
DI M A V.<. 1 1 ,95 >, BV.r. 1 1 ,95 > 

n‘s.<0)=\. FOR 1 = 1 TO 7 MV.< I >=MV.< 1-1 )X2 
REM MASQUE 
C=0 AD=#B400 

DEBUT DES MOTIFS BINAIRES 

PR INT"ON COPIE CARACTERE ", 


7 

AND 


U >=S 


PEEKX AD + «, C + 32 J 


MATRICES 16*12 
CARACTERE ", 


10 
15 
20 
30 
35 
40 
REM 

50 REPEAT 
CHR3X C + 32 ) 

60 FOR 1=5 TO 0 STEP -1 
70 S=0 

80 FOR J=0 TO 
90 S=S+< M’2< I .) 

*M^<. 7-J P-'MîîC I > 

100 NEXT J 
1 10 A^< 10-2*1 
120 NEXT I 

130 C=C+1 UNTIL C=96 

135 REM AV.( ,C> CONTIENT LE CARACTERE 
CHR3K C + 32 ) 

140 C=0 REM ON CREE LES 
150 REPEAT:PRINT"ON CREE 
CHR$< C+32 > 

160 FOR 1=0 TO 8 STEP 2 
170 FOR J=0 TO 7 

180 I F< C AV.< I , C 2ANOMVK. J ) 2=0 >ÛR<. C A*C 1+2, 

C 2ANDMV.C. J ) >=0 2THEN 1 90 
185 AX< I + 1 , C )=&>.( I + 1 , C 2+M'4<. J > 

190 NEXT J 
195 NEXT I 

200 FOR 1=0 TO 10 STEP 2 
210 FOR J=0 TO 6 

220 I FC C AV.< I , C >ANDMV.< J > 2 >0 2 ANDC <. AV.<. I , 

C 2ANDMX< J+l 22>02THENGOSUB300 GOTO260 
230 IF 1=10 THEN 260 

240 I F< < A*< I , C 2ANDMV.<. j ) ) >0 2ANDC <. A‘/.(. I +2 , 

C 2ANOM^<. J+l > 2>0 2THENGÜSU6 350 GÛTÛ260 
250 I F< C A^< I , C >ANDM^(. J+l 2 2>0 >AND<. <. A"4<. 1+2 
,C 2ANOMV.Cj ) 2>02THENGOSUB 350 
260 NEXT J 
270 NEXT I 

280 C=0+1 UNTIL C=96 

290 ! MSAUE " COURA=AV. " • ! MSAUE " C0URB=B*2 " END 

295 REM SAUUEGARDER LES MATRICES AV. ET BV. 

300 B>.< I , C >=BV.< I , C >+MV.< j+1 2 

310 IF I THEN I F< <, BV.C 1-1,0 2ANDMV.< J+l 2 2 20 2 

THEN BV.C I - 1 , C >=BV.< I - 1 , C 2-MV.< j+ 1 2 

320 RETURN 

350 BV.c I + 1 , C >=BV.C I + 1 , C .'«+MV.C J +1 2 RETURN 
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NEXT 


CD 


CO 


Evidemment, on ne réalise pas une 
qualité courrier sur n'importe quelle 
imprimante matricielle. Il vous faut : 

— une option BIT IMAGE double 
densité avec 2*480 points par ligne, 

— un interligne de 1/144 (ou 
1/216) de pouce entre deux passes 
de la tête d'impression. 

PETITE MISE EN GARDE 

Ces programmes ont été écrits pour 
ATMOS et JASMIN (instructions 
MSAVE et MLOAD). Pour une utili¬ 
sation sur cassette, il faudra utiliser 
STORE et RECALL... 

EXPLIQUONS NOTRE METHODE 

Normalement, huit lignes à 6 bits se 
combinent pour définir la grille d'un 
caractère, ce qui entraîne son aspect 
"pointillé”. 

Pour remédier à ce défaut, nous pré¬ 
voyons une matrice 16*12 et attei¬ 
gnons ainsi une meilleure qualité 
digne d'une imprimante à 18 
aiguilles. 

Au début, on est tenté de réaliser un 
éditeur de caractères, mais qui a 
envie de remplir 96 grilles compre¬ 
nant 16 fois 1 2 cases ? 

Notre premier programme COUR¬ 
RIER accomplit cette tâche fasti¬ 
dieuse et crée les caractères ASCII 
32-127 en se basant sur les motifs 
binaires en RAM à partir de l'adresse 

# B400. 

La matrice A% est prévue pour la 
première passe de la tête d'impres¬ 
sion, B% pour la deuxième. 

Avant d'exécuter le programme, 
vous avez la possibilité de redéfinir 
l'un ou l'autre des caractères afin 
d'obtenir un clavier AZERTY. 

Le programme TEXTIMP imprime le 
texte logé à partir de l'adresse 

# 4000. Sa fin doit être signalée par 
un zéro. 

Un texte tapé sur le traitement de 
textes EASYTEXT remplit ces 
conditions. 

Il faut vérifier les codes de contrôle 
de votre imprimante. Il y a de fortes 
chances qu'ils soient-identiques aux 
nôtres. 
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Si vous voulez imprimer vos listings, 
il faut procéder ainsi : 

— charger votre programme 

— charger le programme de trans¬ 
fert BASIC-TEXTE proposé par 
P. Beaufils, Théorie 9, p.52 

— faire un CALL H 8000 

— sauvegarder le fichier par 
!SAVE"MONPROG.TXT, 

# 4000,DEEK(5)" 

— passer sous EASYTEXT 

— formater le fichier MONPROG 

— faire CTRL C 

— exécuter TEXTIMP 

Une légère modification des pro¬ 
grammes permettrait de traiter éga¬ 
lement les caractères spéciaux (voir 
THEORIC 15, Redéfinition EASY¬ 
TEXT, p.54). 



10 REM IMPRIMER UN TEXTE 

15 REM IMPRIMANTE SANS NLQ TYPE EPSON-STAR 
20 REM UE TEXTE EST PLACE A PARTIR DE #4000 
25 REM LA FIN EST SIGNALEE PAR ZERO 
30 HIMEM #3FFF 

35 CLS PR INT"MARGE GAUCHE “ ; INPUT MG NL-80-MG 
40 OIM Ak< 11,95 >,B7.< 1 1,95 > 

45 GOSUB400 

50 'MLOAD"COURA=AV." : i MLOAO"COURB=B5{" 

60 AD=#4000 NE=10 00-24 0F-2313 REM OFFSET OE 
BV. 96*24*9 

65 CR-13 ST-0 ES=32 FI-127 CS=5 E=1 FJ-255 
70 J=0 S*="" 

80 C=PEEKt AO*J > 


90 IF C—ST THEN GOSUB 200 LPRINTCHR*<27>, 
CHR*l 64 > END 

100 IF < C=CR >0R< C=CS >0R< C=E JTHEN GOSUB 200 
J=J*1 GOTO130 

104 IF C=FJ THENJ—J+1 GOTO80 

105 IF <C<ESJOR<OFI >THENC=ES 
110 S*=S**CHR*<C> J=J+1 

120 IF LEN<S*)=NL THEN GOSUB 200 GOTO 130 

125 GOTO 80 

130 A0= AO*J GOTO70 

200 REM ON IMPRIME 

204 IFMGTHEN FORK=1TOMG S*-" "*S* NEXT 

205 IF S*-"" THEN S*=" " 

210 LE=LEN<S* J* 12 L17.=LE'256 L2V.-LE-L 1V.*2S6 

220 LE=LEvl2 

230 LPRINTCHR*< 27 >; CHR*< 76 ),CHR#< L2H >,, CHR*< LIV. >, 

235 RËM DOUBLE OENSITE L27.*256*L15î MOTIFS 

240 FOR K=1 TO LE 

250 C=ASC<MID*<S*,K,1>>-32 

260 OOKE0,OEEK<#9E)+NE+DO*C CALL#8000 

270 NEXT 

280 LPRINTCHR*< 27 >, CHR*< 51 >, CHR*< 1 > 

285 REM INTERLIGNES OE 1^144 <1^2167 DE POUCE 

290 LPRI NTCHR*< 27.) ; CHR*< 76 >; CHR*< L27. ), CHR*< L 17. >, 

295 FOR K=1 TO LE 

300 C=ASC<MID*<S*,K,1))-32 

310 DOKE0,OEEK<#9E)+NE+00*C*0F CALL#8000 

320 NEXT 

330 LPRINTCHR*< 27 >; CHR*< 51 ); CHR*< 23 ) 

335 REM INTERLIGNES DE 23/-144 DE POUCE, 23->35 
SI INTERLIGNES DE 35^216 
340 RETURN 

390'REM ENUOI OE 12 MOTIFS A L'IMPRIMANTE 

400 FOR L=0 TO 13 

410 REAO OC 

420 POKE#8000*L, OC 

430 NEXT 

440 RETURN 

450 DATA #A0.#00,#B1,#00.#20.#C1,#F5,#C8.#C8. 
#C0,#18,#00,#F5,#60 
460 REM ORIC 1 #C1->#7B 




H 


C 


LEARER 


Patrice GUERRIN 


C 



LEARER, ou comment effacer 

façons. En tout, plus de 50 possibilités sont permises. 
A vous de les trouver. Clearer est un petit programme 
en langage machine de 220 octets, compatible ORIC 1 - ATMOS 
sans modifications. 


Tapez le tout d'abord, faites RUN, 
puis sauvez-le par CSAVE"CLEA- 
RER", A#9000,E#90DD. Copiez la 
démonstration, sauvez-la de préfé¬ 
rence avant tout essai et tapez RUN 
(CLEARER étant bien sûr déjà en 
mémoire). 

Voici les diverses entrées des 4 pos¬ 
sibilités primaires d'effacement pos¬ 
sible : 

Effacement Haut - Bas : 

Faire un DOKEO, adresse gauche de 
départ écran de la zone à effacer. 
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Puis un CALL# 9000 (note : Clearer 
efface ligne par ligne). 

Effacement Bas - Haut : 

Faire le DOKE en 2 et CALL #901F 

Effacement Gauche - Droite : 

Faire le DOKE en 4 et CALL#903E 

Effacement Droite - Gauche : 

Faire le DOKE en 6 et CALL#907C 

Quelques exemples : 

Faire un effacement entier de 
l'écran : 

de Haut en BAS : 

DOKEO, # AOOO:FORI = 1T0200: 
CALL # 9000:NEXT 
de Bas en Haut : 

DOKE2,#BF18:FORI = 1T0200: 
CALL# 901 F:NEXT 
# BF1 8 = adresse dernière ligne 
écran 

de Gauche à Droite : 

DOKE4, # AOOO:FORI = 1T040: 
CALL # 903E:NEXT 
de Droite à Gauche : 

DOKE6, # A02 7:FORI = 1T040: 
CALL # 907C:NEXT 
#A027 = adresse bord droit pre¬ 
mière ligne écran. 


En mélangeant ces 4 effacements, 
on en obtient des dizaines d'autres. 
Exemple : effacement de haut en 
bas en même temps que de gauche 
à droite : 

DOKEO, # AOOO:DOKE4, # A000: 
FORE = 1TO40:FORI = 1T05: 
CALL # 9000:NEXT:CALL # 903E: 
NEXT 

Vous pouvez aussi effacer à l'écran 
de tous les côtés (voir démo). 
EFFACEMENT D'UNE PARTIE DE 
l'ECRAN 

Pour cela, il faut connaître certaines 
adresses. 

Haut - Bas : # 9008 contient 40 nor¬ 
malement car il faut effacer 40 
octets pour effacer une ligne écran. 
Si vous ne voulez effacer que la moi¬ 
tié de l'écran, mettez en # 9008 la 
valeur 20. 

Bas - Haut : #9027 (40 norma¬ 
lement). 

Gauche - Droite : # 9066 (contient 
200 normalement). Mettre 100 en 

# 9066 pour la moitié de l'écran (50 
pour le quart, bien sûr !). 

Droite - Gauche : # 90A4 (200 
normalement). 

Si vous faites par exemple : DOKEO, 

# A000:CALL # 9000, cela va effa¬ 
cer la ligne supérieure de l'écran 


HIRES. Une fois son travail exécuté, 
la routine va Doker en 00-01 
l'adresse de la ligne suivante, ce qui 
vous évitera de Doker en 00-01 
l'adresse de la prochaine ligne si, par 
exemple, vous voulez effacer tout 
l'écran HIRES. 

DOUBLE UTILISATION (TEXT- 
HIRES) 

La démo, qui n'illustre d'ailleurs que 
quelques possibilités de CLEARER, 
est faite en HIRES. Mais rien ne vous 
empêche de faire marcher CLEARER 
en mode TEXT. Il faudra seulement 
Poker 32 aux adresses ci-dessous, 
car l'espace en modes HIRES est 64, 
tandis qu'il est 32 en mode TEXT. 
Haut - Bas : # 9003 
Bas - Haut : #9022 
Gauche - Droite : # 904F 
Droite - Gauche : # 908D 
Il faudra, par la même occasion. 
Poker en # 9066 pour la routine 
G - D et en # 90A4 pour la routine 
D - G la valeur 26, car en HIRES il 
y a 1 99 lignes verticales, mais en 
TEXT, il n'y en a que 26 ! 

Voilà, avec toutes ces informations, 
plus de problèmes pour effacer 
d'une manière originale vos écrans 
TEXT ou HIRES... 


0 

REM- 

1 

REM 

<■3 

REM 

3 

REM 

4 

REM 

5 

REM 

6 

REM 

8 

REM 

9 

REM- 

10 

REM 

1 1 

REM 

1 2 

REM 


CLEARER 
COMPATIBLE ORIC 1 / ATMOS 
(C) PATRICE GUERRIN 


1 9 
20 
30 
40 


A=#9000:F=#90DD:L 
K=VAL("#"+C$):S=S 
NEXT:READ D$: IF S 
PING :PRINT"Erreur 
AO, 00,A9,40 
69,28 
00 , A9 
28 , SD 
AD, 04 
91,04 


1 00 

DATA 

105 

DATA 

1 10 

DATA 

1 15 

DATA 

1 20 

DATA 

1 25 

DATA 

1 30 

DATA 

135 

DATA 

1 40 

DATA 

1 45 

DATA 

150 

DATA 

1 55 

DATA 

160 

DATA 

165 

DATA 


00 

04 

00 

EA 

07 

AD 

45 

20 


, 8D 
,40 
,02 
, 00 
, EA 
, 05 
, AD 
8D, 08 
19, AD 
00,E8,EO 
09,00,E9 
,52,20,2D 
47,55,45 


8D. 
00 . 


, 00 
,91 
00 
, 8D 
18 
00 
,09 
, 00 
,06 


=100:REPEAT:F 
+K+65536* <S+K 
= VAL < " # 11 + D$ ) 

1 i gne" .- L 
,91.00,08,00, 
,00.AD.01.00, 
.02,08,00,40. 
.AD,03,00,E9, 
,08,00.AD,05, 
.AD.04,00,69, 
,E8,E0,08,D0, 
,00,69,00,8D, 

,AD,07,00,8D, 
, 00,69,28,8D, 

,C8,DO,E5,38, 
,00,8D,07,00. 
,20,28,43,29, 
,52,52.49.4E, 


OR A = A TO A+15 :READ C 
>65535) ; IF A =F THEN 
THEN L=L+ 5 : UNI IL A>F : 


$ 

POKE 

ENL' 


A . K 


28 . 
69, 
DO , 
00 , 
00 , 
28, 
E5 , 
05 , 
09, 
06 , 
AD, 
60 , 
20 , 
20 , 


DO, 
00 , 
F9, 
8D, 
8D, 
8D, 
18, 
00 , 
00 , 
00 , 
08 , 
2D, 
50, 
31 , 


F’9 , EA 
8D.01 
EA, 38 
03,00 
09,00 
04,00 
AD, 08 
60 ,EA 
A2,00 
AD, 07 
00, E9 
20.43 
41,54 
39,38 


, 18 
.00 
, AD 
,60 
, A2 
, AD 
, 00 
. AO 
,A9 
,00 
,01 
, 4C 
,52 
, 36 


, AD 
.60 
. 02 
, EA 
,00 
,05 
.69 
, 00 
,40 
, 69 
, 8D 
. 45 
. 49 
, 2E 


, 00 . 
, EA , 
, 00 , 
. AO , 
, A9 , 
, 00 , 
,01 , 
, AD, 
,91. 
, 00 , 
, 06 , 
• 41 , 
, 43 , 
, 00 , 


00 , 
AO , 
E9 , 
00 , 
40 , 
69 , 
BD, 
06 , 
06 , 
8D, 

00 , 

CT O 

-J JL . 

45, 
00 , 


07 4 2 

OBEF 

1 3Bô 
1880 
1099 

2 1 1 El 
27B9 
2C0B 
300C 
348F 
3B45 
3F8C 
4340 
4 6AE 
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GAUCH 


io rem::::::::::::::::::::::::::::::: 

20 REM DEMO CLEARER 

30 rem::::::::::::::::::::::::::::::: 

40 rem 

50 TEXT:PAPERO: INK1 

60 H1RES:PRINT:PRINT" EFFACEMENT DE 

GAUCHE A DROITE" 

70 GOSUB2000:DOKE4,#A000:FORI=1T040:C 
ALL#903E:NEXT 
75 WA ITl 00 

80 HIRES:PRINT:PRINTCHRi(130)'" EFF 
ACEMENT DE DROITE A GAUCHE" 

90 GOSUB2000:DOKE6,#A027:FORI=1T040:C 
ALL#907C:NEXT 
95 WAIT100 

100 H 1RES:PRINT:PRINT" EFFACEMENT 

DE HAUT EN BAS" 

110 GOSUB2000:DOKEO,#A000:FORI=1T0200 
:CALL#9000:NEXT 
120 WA I Tl 00 

130 HIRES:PRINT:PRINTCHR$(130)J" E 
FFACEMENT DE BAS EN HAUT" 

140 GOSUB2000:DOKE2,#BF18 :FORI = 1T0200 
:CALL#901F :NEXT 
150 WAIT100 

160 H1RES:PRINT:PRINT"EFFACEMENT DE G 
AUCHE A DROITE ET DE" 

170 PRINT" HAUT EN BAS" 

180 GOSUB2000:DOKEO,#A000:DOKE4.#A000 
190 FORE=1T040 

200 FORI=1T05:CALL#9000:NEXT:CALL#903 
E : NEXT 
210 WA ITl 00 

220 HIRES:PRINT:PRINTCHR$(130);"EFFAC 
EMENT DE DROITE A GAUCHE ET DE" 

230 PRINTCHR* (130).:" BAS EN H 

AUT" 

240 GOSUB2000:DOKE6,#A027:DOKE2,#BF1 8 
250 FORE=1T040 

260 FORI = 1T05:CALL#901F :NEXT:CALL#907 
C:NEXT 
265 WAITl 00 

270 HIRES:PRINT:PRINT"EFFACEMENT DE 4 
COTES:GAUCHE - DROITE" 

280 PRINT" ET DROITE GAUCHE" 

285 DOKE4,#A000 

290 GOSUB2000:POKE#9066,100 : FORI = 1T02 
0:CALL#903E:NEXT 
295 WAIT50 

300 DOKE4,#AFB4:FORI=1T020:CALL#903E: 
NEXT 

305 WAIT50 

310 DOKE6,#A027:POKE#90A4,100:FORI=1T 
020 :CALL#907C:NEXT 
315 WAIT50 

320 DOKE6,#AFB3:FORI=1T020:CALL#907C: 
NEXT 

322 POKE#9066,#C8:POKE#90A4,#C8 
328 WAIT100 

330 HIRES:PRINT:PRINTCHR«<130)1"EFFAC 
EMENT MOITIE HAUT BAS ET MOITIE" 


340 PRINTCHR*(130)1 " 

E DROITE" 

345 GOSUB2000 
350 DOKEO,#A000: FORI = 1T0100:CALL#9000 
INEXT 

360 WAIT50:DOKE4,#AFA0:POKE#9066,100: 
FORI=1TO40:CALL#903E:NEXT 
365 POKE#9066, #CB : WAITl 00 
370 HIRES:PRINT:PRINT"EFFACEMENT INTE 
RVALLE DE 2 LIGNES" 

375 PRINT" ( HAUT - BAS >" 

380 GOSUB2000:POKE#9011,80:DOKEO,#A00 
0 :FORI = 1 TOI 00 :CALL#9000:NEXT 
390 WAIT50:DOKEO,#A028:FORI = 1 TOI 00 : CA 
LL#9000:NEXT 

395 POKE#9011,#28 :POKE#90A4,#C8 
400 WAI Tl 00 :HIRES: PRI NT : PRINTCHRi(130 
);"EFFACEMENT DE TOUS LES COTES ! 1 ! !" 
405 GOSUB2000 
410 DOKEO,#A000 
420 DOKE2,#BF18 
430 DOKE4,#A000 
440 DOKE6,#A027 
450 FORE=1T020 

460 FORI=1T05:CALL#9000:NEXT 
470 FORI=1T05:CALL#901F:NEXT 
480 CALL#903E 
490 CALL#907C 
495 WAIT5 

500 NEXT:IFQW=1THEN600 
510 CLS:PRINT:PRINT" ENCORE 

UNE FOIS ! ! !" 

520 PRINT" < C'EST TELLEMENT BEA 

U ! ) " 

530 QW=1 :GOTO405 

600 H1RES:PRINT:PRINT"EFFACEMENT HAUT 
ET BAS EN MEME TEMPS" 

610 GOSUB2000:DOKEO,#A000:DOKE2,#BF18 
: FORI = 1 TOI 00 :CALL#9000:CALL#901F :NEXT 
620 WAIT100 

630 HIRES:PRINT:PRINTCHR$(130)1"EFFAC 
EMENT GAUCHE DROITE EN MEME TPS" 

640 GOSUB2000:DOKE4,#A000:DOKE6,#A027 
:FORI=1T020:CALL#903E:CALL#907C:NEXT 
800 ' 

802 PRINT"ESPACES PAS DES TRAITS...!! 

i ■> 

810 PRINT"TAPEZ SUR UNE TOUCHE . 

Il 

825 POKE#9003,128 ;POKE#9022,128 :POKE# 
904F,128:POKE#908D,128 
900 WAIT100 :TEXT: ZAP : END 
1990 END 

2000 POKE#26A,10 :CURSET120,100,1 :FORI 
= 1T090STEP10 :CIRCLE1,1:NEXT 
2010 FORI=0TOl99STEP5:CURSETO,I,1 :DRA 
W239,0,1 :NEXT 

2020 FORI=0TO239STEP5:CURSETI,0,1 :DRA 
WO,199,1INEXT 
2030 RETURN# 
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BIDOUILLE 



ET CONTROLEZ LA ROTATION D'UN MOTEUR 
AVEC VOTRE ORDINATEUR (ATMOS OU ORIC1) 


Maurice LE GUYADER 


m fous pouvez transformer à titre expérimental un moteur de barbe¬ 
ra eue en moteur à rotation programmable via la sortie imprimante et 
W une interface à construire. La commande est aussi possible par l'in- 
termédiaire d'une carte 8 entrées 8 sorties en adaptant vous-même les bran¬ 
chements et le programme en langage machine. 



Le moteur 

utilisé est un moteur 


— interface de liaison ordinateur, 
sortie imprimante, moteur ; 

— programmes de contrôle Basic et 
langage machine commentés. 


1,5 volt avec réducteur incorporé 
(made in Taïwan pour moins de 
1 5 F) conforme à la perspective de 
résentation. 

e système sera présenté en 3 séries 
d'articles : 

— adaptation du moteur ; 


ADAPTATION DU MOTEUR 

La transformation ne détruit pas le 
moteur, celui-ci pourra éventuelle¬ 
ment retrouver sa fonction initiale 
très rapidement. 


1 ,r * étape 

Préparez et collez un disque de car¬ 
ton fin, les graduations angulaires 
seront faites plus tard en faisant 
fonctionner le moteur en pas à pas 
par programme (figure 1 ). 

2* étape 

Démontez le carter moteur, exami¬ 
nez bien la position des différents 
éléments, notamment celle de l'en¬ 
grenage à modifier (figure 2). Conti¬ 
nuez le démontage pour extraire cet 
engrenage. Le comptage des pas se 
fera sur celui-ci en y collant 4 lames 
de laiton (rep. a figure 3) qui vien¬ 
dront court-circuiter les balais (rep. 
b figure 4). La figure 3 présente la 
chaîne cinématique du réducteur 
avec, en horizontal, le nombre de 
dents de chaque engrenage et, en 
vertical, les vitesses théoriques de 
rotation en tours par minute. 

Le nombre de pas par tour à la sor¬ 
tie du réducteur (carré d'entraîne¬ 
ment de la broche) sera de : 

55 42 

— x — x4 = 92,4paspartour 
10 10 

Le pas à la sortie sera de 360/92,4 
» 3,896 degrés soit = 3°54'. L'or¬ 
dinateur devra compter 
92,4x5 = 462 impulsions par 
minute soit 462/60 = 7.7 impulsions 
par seconde, le comptage se fera 
très facilement à cette fréquence, la 
difficulté sera d'arrêter rapidement le 
moteur. 
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3* étape : 

Transformation de l'engrenage 

— Dégraissez l'engrenage au 
trichloréthylène. 

— Poncez la base de l'engrenage 
sur du papier abrasif fin (type carros¬ 
sier grain 400) posé sur une surface 
plane (cale à poncer). 

— Découpez dans des lames de pile 
plate 4,5 volts usagée 4 rectangles 
de 2 mm sur 3,5 mm environ (rep. 
a figure 3). Des ciseaux de coutu¬ 
rière feront l'affaire !!! 

— Redressez, poncez et dégraissez 
les 4 lames. 

— Repérez avec un feutre les posi¬ 
tions de collage des 4 lames de lai¬ 
ton (dents noircies sur la vue F figure 
3). 

— Déposez un cordon circulaire 
continu de colle à 2 composants 
"type Araldite" (rep. b figure 3) et 
posez les lames en laiton (rep. a 
figure 3) en les alignant avec les 
repères à l'aide d'un petit tournevis. 

— Laissez la colle durcir (engrenage 
horizontal pour éviter les coulures). 

— Limez et poncez l'excès de colle 
jusqu'à affleurage des 4 lames de 
laiton. 

— Tracez au feutre les bissectrices 
(rep. c figure 3) des angles formés 
par les lames de laiton. 


4 e étape : 

Préparation du bloc moteur 

— Supprimez la nervure (ref. f 
figure 4) en découpant une ouver¬ 
ture (ref. g figure 4) dans le corps en 
matière plastique du réducteur par 
des perçages jointifs au foret ou 
avec une pointe chauffée. Cette 
ouverture permettra de voir la posi¬ 
tion des balais, de contrôler le fonc¬ 


tionnement de l'ensemble et de 
régler les temporisations d'arrêt du 
moteur. 

5» étape : 

Confection des balais 

— En vous aidant du dessin et de la 
perspective de la figure 4, préparez 
les balais avec du fil de cuivre rigide 
diamètre 5/10 de mm (fil de câblage 
électronique dénudé). Les 5 spires 
jointives (pour avoir une élasticité 
suffisante) seront faites en enroulant 
le fil sur une queue de foret de dia¬ 
mètre 2 mm. 

— Préparez les cavaliers (ref. c 
figure 4) en fil de cuivre diamètre 
5/10 de mm. 

— Préparez les perçages pour mon¬ 
ter les balais et les cavaliers (foret ou 
aiguille chauffée). 

— Montez les balais et les cavaliers, 
torsadez les 3 brins (cavalier c et 
balai d), soudez. C'est ici que les fils 
du circuit de comptage seront 
raccordés. 

— Déposez un peu de colle pour 
rigidifier l'ensemble (rep. e figure 4), 
en évitant de coller les spires des 
balais. 



6* étape : 

Remontage 

— Présentez l'engrenage modifié 
sur son axe, vérifiez la position et 
l'appui des balais, corrigez par défor¬ 
mation du fil. 

— Faites le remontage en graissant 
légèrement toutes les pièces 
mobiles. 

— Ajoutez éventuellement une 
petite rondelle ou une spire de fil de 
cuivre de 5/10 au-dessus de l'engre¬ 
nage modifié (rep. a figure 4). 


7 e étape : 

Flèche de contrôle de rotation 

— Préparez un tourillon (figure 5) 
avec une flèche réalisée en fil de cui¬ 
vre 1,5 mm2 dénudé. 


8» étape : 

Contrôle de fonctionnement du 
moteur transformé 

Vous pourrez tester la transforma¬ 
tion du moteur en câblant un petit 
montage constitué d'une pile 
4,5 volts et d'une lampe en utilisant 
les balais comme interrupteur. La 
lampe devra clignoter régulièrement 
lors de la rotation du moteur. 

A partir de toutes ces indications, 
vous pourrez éventuellement tenter 
les modifications sur un motoréduc- 
teur de jouet basse tension en vous 
approchant de la fréquence de 
comptage proposée. 

NOTA : 

Les figures 1,2, 3, 4 et l'engrenage 
dessiné sur la figure 3 sont à 
l'échelle 1:1. 
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o RBimmmmmtmmmmm 

1 REH* SUPTRON C.Guillot * 

2 REH* * 

3 REH*Nouve1le fonction TRON I 

4 REHt * 

5 REH***m***tm**tm*mmm** 

6 : 

8 CLS:HIHEHI961F:PAPERO:IMK7:G0SUB1000 :GOSUB10 :GÜSUB2000:CALLI9620: END 
10 AM9620:F=I97FB:L=100 :REPEAT: FOR A=A TO A+15:READ C» 

20 K=VAL("f"+C*):S=S+K+65536*(S+K>65535): IF A<=F THEN POKE A,K 
30 MEXT : READ Di : IF S=VAL("»"+Dt) THEN L=L+5:UNTIL A>F : RETURN 
40 PING:PRINT‘Erreur liqne":L:END 

100 DATA A9,20,A2,96,85,A6,86,A7,AD,F5,02,AE,F6,02,8D,A6,08D6 
105 DATA 02,8E,A7,02,A5,F0,A6,F1,8D,F9,02,8E,FA,02,A9,58,114E 
110 DATA A2,96,8D,F5,02,8E,F6,02,A9,E3,A2,96,8D,4B,02,8E, 19BC 
115 DATA 4C,02,A9,4C,8D,4A,02,60,A0,00,B1,E9,E6,E9,D0,02,2113 
120 DATA E6,EA,C9,84,D0,31,20,1C,D9,8E,C4,02,D0,03,EE,C4,2A1F 
125 DATA 02,A9,4C,A2,FA,A0,96,86,F0,84,F1,85,EF,A9,10,A2,33A2 
130 DATA 06,9D,00,98,CA,D0,FA,AD, 1F.02,D0,0A,A9,10,A2,27,3A9B 
135 DATA 9D,80,BB,CA,D0,FA,60,C9,B5,D0,22,AE,F9,02,AC,FA,44F6 
140 DATA 02,A9,4C,85,EF,86,FO,84,F1,AD,1F,02,F0,18,A9,00,4CCB 
145 DATA 8D,F4,02,A9,40,8C,4A,02,A9,60,85,F2,60,C6,E9,D0,556F 
150 DATA 02,C6,EA,6C,A6,02,A2,27,A9,10,9D,80,BB,CA,DO,FA,5E23 
155 DATA EE,OC,02,FO,05,CE,OC,02,DO.D4,20,5F,F7,CE,OC,02,64E6 
160 DATA 4C,AE,96,48,A5,F0,C9,FA,D0,0E,AD,1F,02,D0,04,A9,6D3F 
165 DATA 00.FO,02,A9,80,8D,F4,02,68,40,08,48,8A,48,98,48,7387 
170 DATA AD,1F,02,F0.07,A9,80,8D,F4,02,D0,45,A9,00,8D,F4,7B37 
175 DATA 02,8D,33,02,8D,34,02,8D,35,02,8D,36,02,8D,37,02,7F0D 
180 DATA 9D,4D,02,A6,A9,E8,F0,26,A6,A8,F0,08,A9,01,8D,34,B6E7 
185 DATA 02,20,5D,97,A6,A9,DO,06,20,7B,97,4C,4E,97,A9,02.8D30 
190 DATA 8D, 33,02, A9,56,8D, 34,02,20,5D, 97,4C, 38,97,20, AO, 92A3 
195 DATA 97,20,EE,97,68,A8,68,AA,68,28,6C,F9,02,F8,18,AD,9AB5 
200 DATA 34,02,6D.37,02,8D, 37,02,AD,33,02,6D,36,02,8D,36,9EA1 
205 DATA 02,90,03,EE,35,02,CA,D0,E4,D8,60,A0,00,A2,04,0E,A565 
210 DATA 37,02,2E,36,02,2E.35,02,2E,4D,02,CA,DO,Fl,AD,4D.AA6B 
215 DATA 02,8E,4D,02,18,69,30,99,00,98,C8,CO,06,DO,DE,60,B0C8 
220 DATA A2,00,AO,01,8C,AO,BB,8C,A7,BB,BD,Al,BB,DD,00,98,B96E 
225 DATA FO,02,D0,06,E8,EO,06,DO,F1,60,A2,10,8E,A0,BB,A2,C262 
230 DATA 00,8E,80,BB,AO,OA,A2,00,BD,82,BB,9D,81,BB,E8,E0,CB12 
235 DATA 25.D0,F5,A9,10,8D,A6,BB,88,D0,EB,A2,04,8E,80,BB,D455 
240 DATA A2.00, BD, 00,98,9D,A1,BB, E8,EO,06,DO,F5,60,AE,C4, DDAA 
245 DATA 02,AC.C4,02,88,DO,FD,CA,DO,F7,60,00,00,00,00,00,E464 
1000 PLOT9,10,1 :PLOT10,10,"SUPTRON':PLOT15,19,12:PLOT16,19,'Implantation " 
1010 PL0T15.20,12:PLOT16,20,"en cours":PLOT2,24,4 
1020 PLOT3,24,“30 secondes de patience...":RETURN 

2000 CLS:PRINT"Vous disposez maintenant d'un tout autre*CHR*(27)"ETRON" 
2010 PRINT:PRINT:PRINT"La syntaxe en est :'CHR*(27)“B 1 TRON,n":PRINT:PRINT 
2020 PRINT'n peut prendre les valeurs de 0 a 255" 

2030 PRINT * e t donne un 'coefficient' de r a 1 en 1 1 s-seaen t.":PRINT:PRINT:PRINT 
2040 PR INT "Sur la ligne du CAPSVPRINT 

2045 PRINTCHR*(27)"Aen rouge se trouve la ligne en coursVPRINT 
2050 PRINTCHRi(27)"DEn bleu, les lignes déjà passées*:PRINT:PRINT 
2060 PRINT’Vous pouvez arrêter par 'TROFF*:PRINT:PRINT:PRINT 
2070 PRINTCHR*(27)"CAppuyez sur une touche":GETR* 

2080 CLS:IFPEEK(iDOOO)=169THENRETURN 

2031 : 

2082 REHIH ADAPTATION ORIC 1 i«« 

2090 POREI964D, 49 :POKEI9655,48:POKEI9650,50:DOKE»9667,ID86I 
2100 POKEI96B6,48:POKEI96DB,48:RETURN 


UITRCXX 


Claude GUILLOT 


Un TRON pas tout à fait comme les 
autres... et qui ne "mange" plus 
l'écran TEXT. 


« 


Ecrit pour ATMOS, il s'auto-adapte 
à l'ORIC 1 et occupe l'espace 
mémoire de #9620 — #97FB (lan¬ 
cement par CALL #9620). 

S'il vous est déjà arrivé de suivre 
avec TRON le déroulement de votre 
programme, vous allez certainement 
apprécier cette nouvelle formule ! 
L'écran TEXT restera "propre", les 
numéros de lignes s'écrivant sur la 
ligne du CAPS : fini les dessins ou 
mises en page balayés par des [100] 
[110] [120]... disgracieux ! 

Le numéro de la ligne en cours est 
en rouge, les lignes précédentes en 
bleu. 

La syntaxe est ITRON.n 
n peut prendre les valeurs de O à 
255 : on ralentit à volonté l'éxécu- 
tion du programme (le suivi peut être 
ainsi facilité). 

Ne soyez pas surpris si, après 
!TRON,255, l'ORIC ne se presse pas 
pour vous rendre la main... Je vous 
assure que c'est normal ! 

Ce nouveau ITRON ne travaille qu'en 
écran TEXT, vous retrouverez le 
TRON classique au passage en hires, 
mais, dès retour en TEXT, vous 
retrouvez ITRON.n. 

Si vous n'aimez pas le rouge pour le 
n° de la ligne en cours : 

Faites POKE #97A3, n° couleur 
désirée 

Si c'est le bleu qui ne vous convient 
pas : 

Faites POKE #97DC, n° couleur 
désirée 

Dernier "détail" : SUPTRON auto¬ 
rise l'utilisation du I à d'autres fonc¬ 
tions. Pour les possesseurs de dis¬ 
que, pas de problème, toutes les 
commandes DOS sont assurées ; 
avec ou sans I. 
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FONCTION SCRN 

SUR ORIC TELESTRAT 


Patrice GUERRIN 


■ e TELESTRAT vient de naître, à nous, TELESTRATIENS, de le faire 

I_grandir ! Et comme tout ordinateur, il a des défauts et des qualités... 

■■■ Aujourd'hui, nous vous proposons une fonction primordiale sur ORIC 
TELESTRAT : la fonction SCRN. En effet, aussi bizarrement que cela puisse 
paraître, cette fonction ne fait pas partie de l'HYPERBASIC. 



La fonction SCRN s'utilise unique¬ 
ment en mode TEXT et donne le 
code ASCII du caractère se trouvant 
à l'adresse spécifiée par les coordon¬ 
nées X et Y, X étant comprise entre 
0 et 39 et Y entre 0 et 27. 

La fonction SCRN est très facile à 
simuler en Basic et en langage 
machine. En sachant que l'écran 
TEXT commence en # BB80 et que 



DESASSEMBLAGE DE LA FONCTION SCRN 


97D0 

A5 34 

LDA§34 

PREND COORDONNEE Y 

97D2 

00 20 

BRK 20 

APPEL ROUTINE FAISANT 40 x Y (RESULTAT DANS AY) 

97D4 

85 00 

STA§00 

SAUVE POIDS FAIBLE RESULTAT EN §00 

97D6 

84 01 

STY §01 

ET LE POIDS FORT EN §01 

97D8 

18 

CLC 

MET RETENUE A 0 POUR ADDITION 

97D9 

AS 00 

LDA§00 

PREND POIDS FAIBLE 

97DB 

69 80 

ADC#§80 

AJOUTE #§80 (DEBUT ECRAN TEXT) 

97DD 

85 00 

STA§00 

ET SAUVE RESULTAT 

97DF 

A5 01 

LDA§01 

PREND POIDS FORT RESULTAT 

97E1 

69 BB 

ADC #§BB 

AJOUTE #§BB (DEBUT ECRAN TEXT) 

97E3 

85 01 

STA§01 

ET SAUVE RESULTAT EN §01 

97E5 

18 

CLC 

MET RETENUE A 0 POUR ADDITION DE X 

97E6 

AS 00 

LDA §00 

PREND CONTENU §00 

97E8 

65 33 

ADC §33 

AJOUTE X 

97EA 

85 00 

STA§00 

SAUVE RESULTAT EN §00 

97EC 

A5 01 

LDA §01 

PREND POIDS FORT 

97EE 

69 00 

ADC #§00 

AJOUTE 1 SI DEPASSEMENT SINON AJOUTE 0 

97F0 

85 01 

STA§01 

SAUVE RESULTAT 

97F2 

A0 00 

LDY #§00 

MET Y A 00 

97F4 

B1 00 

LDA (§00),Y 

Y PREND LE CONTENU DE L'ADRESSE #BB80 ♦ 40 x Y + X 

97F6 

8535 

ST A §35 

SAUVE CONTENU EN §35 

97F8 

60 

RTS 

FIN 


Le TELESTRAT utilise l'instruction BRK pour taire appel à une routine du monteur Ainsi, pour afficher le conteru 
de raccumulaleur, on devrait normalement faire JSR §CCD9 sur ATMOS. Eh bien, sur TELESTRAT. on fait BRK 
#10 De même, BRK #20 fait AY. A x 40 


chaque ligne comprend 40 octets, il 
suffit de prendre le contenu de 
l'adresse # BB80 + 40x Y + X (avec 
PEEK) pour connaître le code ASCII 
se trouvant aux coordonnées X et Y. 
Exemple : si l'on veut connaître le 
caractère situé àX = 10etY = 15. 
Il faut faire PRINT PEEK 
(#BB80 + 40x 15+ 10). 

Si vous faites PLOT10,15,"A” et 
que vous faites PRINT PEEK 
(#BB80 + 40x 15+10). 

Vous obtiendrez 65 car 65 est le 
code ASCII de A (faites 
PRINTCHR§(65) si vous n'en êtes 
pas sûr I). 

Supposons maintenant que vous 
vouliez connaître le code ASCII du 
caractère se trouvant aux coordon¬ 
nées courantes X et Y du curseur. En 
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1 S T 1 N G 


8 

/ 

****************************** 


9 

/ 

* * 


10 

/ 

* FONCTION SCRN * 


1 1 

/ 

* EN LANGAGE MACHINE * 


1 2 

/ 

* * 


13 

/ 

* ' PATRICE GUERRIN * 


1 4 

/ 

* * 


15 

/ 

* OR IC TELESTRAT * 


16 

/ 

* * 


17 

/ 

****************************** 


18 

/ 



249 

/ 



250 

/ 

DONNEES 


251 

/ 



252 

/ 



255 


DATA*(1)="A53400208500840118A5" 


260 


DATA* <2) = "0069808500A50169BB85" 


265 


DATA* <3) = "0118A50065338500A501 " 


270 


DATA*(4)="69008501A000B1008535" 


275 


DATA* <5) = "60" 


276 

/ 



277 

/ 

CHARGEUR 


278 

/ 



280 


GOSUB VAL 


300 


FOR 1=0 TO 40 


305 


READ 


310 


POKE #33,DON*:CALL #E0 


320 


POKE #97D0+I,PEEK<#35) 


330 


NEXT 


500 

IREAD 


510 


LONG=2 


520 


RG=RG+1 


530 


DON*=MID*(DATA*(LIG+1),RG,LONG) 


540 


IF RG> = (LEN(DATA*(LIG+1))-LONG) + 

1 

THEN 

SUIVANTE 


550 


RG=RG+LONG-1 


560 

RETURN 


600 

ISUI VANTE 


610 


LIG=LIG+1 


620 


RG = 0 


630 

RETURN 


650 

] VAL 


660 


DOKE #D0,#33B5:DOKE #D2,#3848:DO 

KE 

#D4, 

#3AE9:DOKE #D6,#490 :DOKE #D8,#E968 

:DOKE #DA 

,#4807 


670 


DOKE #DC,#2968 :DOKE #DE,#600F:DO 

KE 

#E0, 

#00A2:DOKE #E2,#D020:DOKE #E4,#A00 

!DOKE #E6 

,#A0A:DOKE #E8,#850A 


680 


DOKE #EA,#E800:DOKE #EC,#D020:DO 

KE 

ffEE, 

#1800:DOKE #F0,#65 :DOKE #F2,#3585: 

POKE #F4, 

#60 


690 

RETURN# 


sachant que # 220 contient la coor¬ 
donnée X du curseur et que #224 
contient la coordonnée Y, nous 
ferons : PRINT PEEK ( # BB80 + 40 x 
PEEK( # 224) + PEEK( # 220)). 

Nous allons réaliser la fonction SCRN 
en langage machine. Ceci amène 
plusieurs avantages : d'abord, la rou¬ 
tine est très courte (environ 30 
octets), elle est très rapide et, en 
plus, entièrement relogeable. 
Copiez le listing Basic qui va servir 
à rentrer le langage machine en 
mémoire. Une fois le listing copié, 
tapez RUN. La routine SCRN est 
alors implantée de #97D0à #97F8. 
La routine SCRN est logée le plus 
haut possible en mémoire pour faire 
perdre un minimum de mémoire lors¬ 
que l'on utilise le Basic. 

Sauvez le listing Basic par 
SAVE"SCRN.BAS" (ça peut servir) 
et la routine en langage machine par 
SAVE"SCRN.COM",A# 97DO, 
E # 97F8. 

UTILISATION DE LA ROUTINE : il 
faut mettre en # 33 la coordonnée X 
et en # 34 la coordonnée Y du point 
recherché. Puis faire CALL#97D0. 
A partir de ce moment, le contenu 
de # 35 contient le caractère se 
situant à l'adresse spécifiée par les 
coordonnées X et Y. 

Exemple : Pour X = 10 et Y = 15, fai¬ 
tes POKE#33,10 : POKE#34,15 : 
CALL # 97D0. 

Puis PRINT PEEK( # 35) pour connaî¬ 
tre le résultat... 

LE CHARGEUR DE DATAS 

Je n'ai pas procédé de la même 
façon que Marcel Speller pour entrer 
les octets de LM en mémoire. En 
effet, vous savez que la fonction 
VAL ne fonctionne pas avec les 
nombres décimaux. On est donc 
obligé de réécrire un programme de 
conversion. Je l'ai écrit en LM et 
vous n'avez que 18 DOKE à copier 
(ce qui est mieux qu'une demi-page 
de calcul pour le MONITEUR pour 
TELESTRAT). 

On met en # 33- # 34 la donnée lue, 
puis on fait CALL# EO (le programme 
de conversion est très rapide). 

On obtient alors en # 35 la valeur de 
la chaîne stockée en #33-#34. 
Exemple : si vous faites POKE#33, 
"A5" puis CALL# EO, le contenu de 
# 35 sera # A5. 

Et maintenant que vous possédez 
une fonction permettant de détecter 
les collisions, faites de beaux jeux 
sur TELESTRAT !■ 
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RECUPERATION DE LECTEUR 

Fabrice BROCHE 


Parlons de la récupération des lec¬ 
teurs Microdisc (anciens ou nou¬ 
veaux) en tant que lecteur escla¬ 
ve... 

Il est en effet possible à très peu de 
frais (un tournevis) de récupérer 
son ancien lecteur Microdisc pour 
en faire un lecteur esclave (lecteur 
B) pour un Télestrat ou un Micro¬ 
disc. 

Il y a deux opérations à effectuer : 

- Rendre le Microdisc esclave. En 
effet, le contrôleur de disquette du 
lecteur à transformer interfère avec 
le contrôleur déjà contenu dans le 
Télestrat ou le Microdisc maître. 

Il faut donc le déconnecter : 

• Ouvrir le Microdisc (enlever les 4 
vis sous le boîtier) 

• Repérer le connecteur 34 bro¬ 
ches sur la carte électronique qui 
est relié au lecteur de disquette lui- 
même et le débrancher. 

On peut en profiter pour débran¬ 
cher le câble qui relie le Microdisc à 
l'ordinateur, il pourra ainsi servir à re¬ 
lier les lecteurs entre eux. 

- Il faut aussi positionner le lecteur 
en tant que lecteur B. En effet, la 
sélection entre les différents lec¬ 
teurs est faite en agissant sur une 
des quatre broches d'activation des 
lecteurs. 

C'est le lecteur lui-même qui déter¬ 
mine s'il est adressé ou non. Il y a 
donc sur chaque lecteur une série 


de switches (interrupteurs) ou des 
cavaliers qui sont positionnés, pour 
l'instant, pour un lecteur A. 

• Pour y accéder, il faut enlever le 
blindage (petit boîtier métallique) et 
donc dévisser les deux vis sur les 
côtés. 

• Pour activer un lecteur en B ou C 
ou D (éviter le D pour le Télestrat, 
car c'est le lecteur utilisé par le dis¬ 
que virtuel de l'extension RAM 64 
Ko), il faut désactiver le lecteur A et 
activer le lecteur B par exemple. 

• Il est difficile ici d'expliquer préci¬ 
sément la manipulation, car selon le 
modèle de lecteur, il faudra agir dif¬ 
féremment. 

• Dans le cas des cavaliers, il y a 
quatre paires de broches. Il suffit de 
déplacer le cavalier situé à côté de 
celui qui était positionné pour sélec¬ 
tionner le lecteur B. 

• Dans le cas des mini-interrup¬ 
teurs, il faut mettre sur OFF le 
switch sélectionné et placer sur ON 
son voisin immédiat. 

• De toutes façons, notez la po¬ 
sition des switches ou cava¬ 
liers avant de faire une quel¬ 
conque manipulation, vous 
pourrez ainsi y revenir sans problè¬ 
me. 

• Il n'y a aucun risque de détériora¬ 
tion pour le lecteur en cas de 
positionnement hasardeux, simple¬ 
ment un risque de non fonction¬ 


nement pour certaines configura¬ 
tions de switch. 

-Le remontage se fait dans le 
sens inverse du démontage (fixer 
le blindage puis refermer le capot) 

- Pour brancher un lecteur escla¬ 
ve, il suffit de brancher le câble en 
nappe que l'on a récupéré à l'arrière 
du Microdisc maître, et de l'autre 
côté à l'arrière du Microdisc esclave. 
Donc, la prise a un rôle différent : 
dans le cas d'un lecteur maître, il s'a¬ 
git d'une sortie et dans le cas des 
esclaves, il s'agit d’une entrée. 

- Pour brancher un troisième lec¬ 
teur, il suffit de le rajouter en paral¬ 
lèle sur le câble reliant les deux pre¬ 
miers lecteurs. 


SEDORIC, FIELD. 

Quelques lecteurs nous ont écrit à 
propos de problèmes dans l'instruc¬ 
tion FIELD du SEDORIC pour les 
champs réels. 

Ces lecteurs ne possèdent sûre¬ 
ment pas le bon manuel du SEDO¬ 
RIC! 

La version parue en octobre 1985 
du manuel du SEDORIC comportait 
une erreur. Le symbole pour les 
champs réels est le T et non le 'R'. 
Ainsi, FIELD 1,SAL TO ! aura 
toutes les chances de marcher. 



Gagnez un 
abonnement à 


Votre revue préférée servie gra¬ 
tuitement à domicile : le rêve, 
non ? 

Il peut rapidement devenir réalité 
si vous participez à l'élaboration 
de THEORIC. La publication d'un 
programme entraînera l'abonne¬ 
ment de son auteur (ou la prolon¬ 


gation de son abonnement) pour 
une durée de trois mois, six mois 
ou un an. Nous contacterons les 
auteurs des meilleurs travaux et 
leur proposerons une participa¬ 
tion plus régulière mais rémuné¬ 
rée. Avis aux amateurs. 
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BROCHAGE 


CONNECTEURS 


Fabrice BROCHE 


Comme annoncé dans le numéro 
précédent, voici le brochage des 
connecteurs du Télestrat (ils sont 
nombreux !) 


1 


Port RS 232 

Les niveaux sont aux normes RS 
232, soit -12/+12 volts. 

L'utilisation de la broche CTS est à 
déconseiller pour les procédures 
de Handshake. En effet, l'ACIA con¬ 
tenue dans le Télestrat, de type 
6551, contient un bug ! Eh oui, mê¬ 
me le Hard peut parfois être bug- 
gé ! Le problème est que l'action 
sur CTS inhibe directement la sortie 
sur Tx et ce, sans finir l'octet en 
cours. Ainsi, le récepteur recevra 
un octet tronqué qu'il interprétera 
on ne sait comment. 

Une ACIA normale, de type 6850 
ou 65C51, attend la fin de l'octet 
avant de stopper l'émission, ce qui 
est plus intelligent. 

Le logiciel du Télestrat considère 
donc la broche DCD pour arrêter 
rémission. 

PORT IMPRIMANTE 

Le port imprimante peut servir à pi¬ 
loter diverses extensions, mais 
avec précaution : il est, en effet, re¬ 
lié au port A du VIA 1 et est donc 
perturbé par la gestion du clavier. Il 
convient donc de se fier au Strobe 
pour valider une donnée sur le 
port, comme le fait l’imprimante. 

PORT D'EXTENSION 


Schémas de brochage. 

Tous les schémas sont indiqués en vue de l'extérieur du boitier. 


Port RS 232 


2. Données émises (TX) 

3. Données reçues (RX) 

4. Demande d'émission (RTS) 

5. Prêt pour émission (CTS) 

7. Masse signaux 

8. Détection de porteuse (DCD) 
20. Terminal prêt (DTR) 


13 12 1110 3 * 7 SS 4 S 2 I 

\ ) 

25 24 23 22 21 20 19 18 17 16 15 14 


Port imprimante Parallèle 


1. Strobe (STR) 
5. DI 

9. D3 
13. D5 
17. D7 

2. 4, 6 .. 


19 17 IS 13 11 


3. D0 
7. D2 
11. D4 
15. D6 
19. Acknowledge (ACK) 



20 te 16 14 12 10 t 6 4 2 


. 20 : toutes bornes paires reliées à la masse. 


Port d'extension 


I. MAP 
6. N.C. 

II. A3 
16. D3 
21. A5 
26. Al 4 
31. A10 


2. 

ROMDIS 

3. 

02 

4. 

RESET 

5. 

I/O 

7. 

RW 

8. 

IRQ 

9. 

D2 

10. 

D0 

12. 

DI 

13. 

AO 

14. 

D6 

15. 

Al 

17. 

A2 

18. 

D4 

19. 

D5 

20. 

A4 

22. 

D7 

23. 

A6 

24. 

A15 

25. 

A7 

27 

A8 

28. 

Al 3 

29. 

A9 

30. 

A12 

32 

AU 

33 

+5V. 

34. 

Masse 




33 

31 29 

27 2S 23 21 

19 17 1S 13 11 

9 7 S 

3 


T 

* * * * .5 O * » * .5 O .5 O * O '5 * 

I | 09009000 O O O O O O O O O 


34 32 30 28 26 24 22 20 16 16 14 12 tO 6 6 4 2 


Rien de spécial à signaler, si ce bus de l'Atmos a disparu. En effet, il interne, le décodage étant fait entiè- 

n’est que la broche I/O Control du est inutile de déconnecter le Via in- rement dans le Télestrat. 
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Port Disquettes 


6. DS3 8. Index 

16. Motor ON 18. DIR 

26.TRACK 00 28. WPROT 

2, 4, 34 : Non connecté 


10. DS0 12. DSI 

20. STEP 22. W Data 

30. R Data 32. SS 

1.3.5. ...33 : Masse 


14. DS2 
24. W Gâte 


33 31 

29 

27 25 

23 

21 

13 17 

15 

13 

11 

9 

7 

S 3 1 






TZ 

r— 

— 

— 

- — 


— .. 

•> 

* 

* * 

•3» 

* 

•3» * 

•3* 


* 

* 

* 

* * * 

* * 

* 

o 

* 

•3» 

•3> * 

•3» 

•3* 

* 

:« 

* 

* © * 


34 32 30 23 26 24 22 20 13 16 14 12 10 3 6 4 2 


Alimentation 

1 . ♦ 12 V 

2. ♦ 5 V 

3. • 12 V (à partir du n' de série 1000) 

4. Masse 


R.V.B. (pour télé ou moniteur couleur) 

1. Rouge 

2. Vert 

3. Bleu 

4. Synchronisation 

5. Son 

6. +12 V (commutation Péritel) 

Blindage - Masse 




M.I.D.I. 

1. CAI 

2. + 5 V. 

3. P A3 

4. CB2 

5. PA 6 

Blindage - Masse 

MINITEL 

1. Non Connecté 

2. Sortie des données 

3. Masse 

4. N.C. 

5. Entrée des données 

6. 7.8 : N.C. 

Blindage : Masse 



Cassette 

1. Sortie des sonnées 

2. Masse 

3. Entrée des données 

4 • 5 : Son (reliées Intérieurement) 
6 -7 : RelaJ télécommande cassette 
Blindage « Masse 



Prise Joystick 

1. it 

2. U 

3. <= 

4 . =3 

5 . Souris bouton n"3 


6 . Souris bouton n'1 

7. +5V. 

8. Masse 

9 . Souris bouton n‘2 


m) 


Port cartouche application (droite) 


Al: 

CS5 

A2: 

CS6 

A3: 

CS3 

A4: 

N.C. 

AS: 

D0 

A6: 

D2 

A7: 

D4 

A8: 

D6 

A9: 

Masse 

A10: 

A0 

Ail: 

A2 

Al 2: 

A4 

Al 3 

A6 

A14: 

Détrompeur 

Al 5: 

A8 

A16: 

A10 

Al 7: 

A12 

A18: 

N.C. 

Al 9 : 

♦ 5 V. 



B1: 

02 

B2: 

CS4 

B3: 

RW 

B 4 

N.C. 

BS: 

Di 

B6 

D3 

B7: 

DS 

B8: 

D7 

B9 

N.C. 

B10: 

Al 

B11 : 

A3 

B12: 

A5 

B13: 

A7 

B14: 

Détrompeur 

BIS: 

A9 

B16: 

Ail 

B17: 

A13 

B18: 

NC 

B19: 

NC 




La zone décodée par la broche I/O 
est #340-#3FF. En effet, les drivers 
de bus internes au Télestrat interdi¬ 
sent l'utilisation de la zone #330- 
#33F. 

Mieux vaut éviter aussi la zone 
#340-#37F, occupée par les exten¬ 
sions ORIC. 

Par exemple, l'extension 80 colon¬ 
nes utilise la zone #340-#345, 
l’horloge temps réel utilise la zone 
#360-#371. 

PORT DISQUETTE 

Le port disquette est au format shu- 
gart, on peut donc brancher la plu¬ 
part des lecteurs de disquettes, 3 
pouces 1/2 ou 5 pouces 1/4. 
Attention, le numéro du lecteur est 
déterminé sur le lecteur lui-même 
par des dip-switch ou par des cava¬ 
liers. Il est facile de transformer un 
lecteur Microdisc en lecteur escla¬ 
ve : il faut placer les switches en 
lecteur B ou C et déconnecter la 
carte contrôleur. 

ALIMENTATION 


RVB 

MIDI 

La broche 5 volts permet d'alimen¬ 
ter une petite électronique extérieu¬ 
re. 

MINITEL 

Le nombre de broches permet de 
servir de détrompeur avec l'autre 
bout du câble qui, lui, est un 3 bro¬ 
ches. 


CASSETTE 

PRISE JOYSTICK 
Les broches 5 et 9 ne sont pas con¬ 
nectées sur le pori de gauche, mais 
seulement sur le port de droite (sou¬ 
ris). 


PORT CARTOUCHE 
APPLICATION (DROITE) 

La correspondance entre le numé¬ 
ro de banque (placé dans le regis¬ 
tre A du VIA 2) et le Chip Select 
est : Banque=7-CS. Donc, CS5 
correspond à la banque 2. 

Il n’y a pas de CS7 (banque 0) car la 
banque 0 est la RAM interne du Té¬ 
lestrat et n'est donc pas accessible 
sur les ports cartouches. 
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PORT CARTOUCHE 
LANGAGE (GAUCHE) 

La banque 4 est disponible sur les 
deux ports, mais il ne faut pas l'utili¬ 
ser simultanément sur les deux ! 

Les deux ports sont "pin compati¬ 
ble", seul diffère remplacement du 
détrompeur. 

Voilà donc un tour d'horizon des 
connecteurs. Rendez-vous dans le 
prochain numéro pour aborder (en¬ 
fin !) la structure logicielle du Téles- 
trat. 


t Z 1 4 $ » 7 • • 1* Il 12 IZ U 1* 17 I* t» 


B 

A 



I Z 1 4 S » 7 • • I* tl 12 11 13 11171111 


Port cartouche langage (gauche) 


Al: 

CS1 

A2: 

CS2 

A3: 

CS3 

A4: 

Détrompeur 

A5: 

D0 

A6: 

D2 

A7: 

D4 

A8: 

06 

A9: 

Masse 

A10: 

A0 

Ali: 

A2 

Al 2: 

A4 

Al 3: 

A6 

A14: 

N.C. 

Al 5: 

A8 

A16: 

A10 

Al 7: 

Al 2 

A16: 

N.C. 

Al 9: 

♦ 5 V. 



B1: 

02 

B2: 

CS0 

B3: 

N.C. 

B4: 

Détrompeur 

B5: 

DI 

B6: 

D3 

B7: 

05 

B8: 

D7 

B9: 

N.C. 

B10 

Al 

B11: 

A3 

B12: 

AS 

B13: 

A7 

B14: 

N.C. 

B15: 

A9 

B16: 

Ail 

B17: 

A13 

B18: 

N.C. 

B19: 

♦ 5 V. 




1 2 3 3 • 7 • t 1t 11 11 I» H13 1» 17 1» 1t 

B 

A 

12 3 5 t 7 • t 10 11 12 13 1415 1* 17 1t 1t 



TRUCS ET ASTUCES POUR 


TELESTRAT 


Fabrice BROCHE 


0 

10 

20 

30 

40 

50 

60 

70 

100 

110 

120 

130 

140 


ADB=#9800 'lire secteur à l'adresse #9800 

POKE #501,20 ' placer numéro de piste 

POKE #502,2 'placer numéro de secteur 

DOKE #503,ADB 'placer adresse de lecture du secteur 

BK=0:AD=#FFA1:EXBNK 


SECT=DEEK(ADB+2) 
END 


]EXBNK 
POKE 
DOKE 
CALL 
RETURN 


#417,BK 
#415,AD 
#40C 


EXECUTION DE ROUTINES 

Il est très facile en BASIC d'exécu¬ 
ter des routines en assembleur. 
L'instruction CALL remplit cet offi¬ 
ce. 

Mais CALL n'agit que sur la banque 
du BASIC. Voici une petite routine 
permettant d'appeler un sous- 
programme en assembleur sur n'im¬ 
porte quelle banque. 

L'exemple donné appelle la routine 
DIR (adresse #FF56) sur la banque 
0 . 


'récupérer le nombre de secteur libres 


RECUPERER LE NOMBRE 
DE SECTEURS LIBRES 

Il peut être utile, dans un program¬ 
me, de savoir le nombre de sec¬ 
teurs libres de la disquette afin de 
prévenir l'inévitable "disquette plei¬ 
ne". 

Il suffit, pour ce faire, de lire le sec¬ 
teur de bit map de la disquette (pis¬ 
te 20 secteur 2) qui contient, dans 
ses 3 et 4ème octets, le nombre de 
secteurs libres de la disquette. 

Le programme suivant effectue le 
travail et laisse ce nombre dans la va¬ 
riable SECT. 


10 

20 

30 

40 

100 

110 

120 

130 

140 


AD=#FF56 
BK=0 
EXBNK 
END 
]EXBNK 
POKE 
DOKE 
CALL 
RETURN 


#417,BK 
#415, AD 
#40C 


Pour lire le secteur sur un autre lec¬ 
teur, il suffit de placer en #500 le nu¬ 
méro du lecteur, de 0 à 3. 
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SUR VOTRE DOS 


QUELQUES ROUTINES 
UTILITAIRES 


Pierre CHICOURRAT 


■ 


A près avoir analysé la disquette sous son aspect matériel et logiciel, 
nous allons voir aujourd'hui les premières routines du DOS, il s’agit 
des routines s'occupant de l'analyse des mots-clefs envoyés 
au DOS (après le "I" d'entrée). 


Signalons tout d'abord, avant de 
commencer et pour répondre à l'in¬ 
quiétude de certaines personnes qui, 
ayant regardé un peu le contenu du 
DOS avec un simple désassembleur, 
se sont étonnées du nombre assez 
grand de plages ne contenant pas de 
code "utile", qu'un des principes 
premiers, quand on gère un lecteur 
de disquette, est la bufferisation. En 
effet, toutes les entrées sorties ont, 
au minimum, lieu par blocs de 256 
caractères (puisque le contrôleur 
n'est capable d'écrire que des pages 
complètes et non un octet à une 
adresse donnée et que, de plus, il 
faut aussi se rappeler que l'élément 
limitant dans la vitesse est l'élément 
mécanique et que l'on a donc tout 
intérêt à réduire le nombre d'E/S). 
Aussi, il faut préparer en mémoire 
des pages de 256 octets qui seront 
écrites d'un coup. De plus, il faut 
conserver en mémoire un minimum 
d'informations nécessaire à la ges¬ 
tion du disque : le Bit Map (absolu¬ 
ment nécessaire, il est chargé avant 
chaque opération d'écriture et est 
systématiquement recopié sur dis¬ 
que quand on sort du DOS), mais 
aussi le secteur de lien et, simulta¬ 
nément, un secteur de données. Il 
faut donc au moins 5 pages de 256 
octets réservées à cette gestion (2 
Bits Map : un pour le lecteur maître, 
un pour l'esclave), un secteur de 
lien, un secteur de données et un 
secteur pour le disc-directory. N'ou¬ 


blions pas d'ajouter à cela toutes les 
variables internes dont a besoin le 
DOS pour fonctionner. Citons en 
vrac : les divers flags indiquant le 
flag d'erreur (errset ou non), la pré¬ 
sence d'une erreur (c'est-à-dire en 
fait son numéro), le fait qu'un pro¬ 
gramme soit mis en autostart au 
moment du DOS ou non, remar¬ 
quons aussi les divers buffers de tra¬ 
vail dont on a besoin (buffer pour 
conserver le nom du programme sur 
lequel on veut travailler)... Tout cela 
réclame tout de même de la place 
comme, de plus, ces diverses varia¬ 
bles et buffers n'ont pas été regrou¬ 
pés dans une zone particulière de la 
mémoire, cela donne une impression 
de trous et de vide, alors que, en fait, 
il reste peu de place disponible parmi 
les 16 Ko overlay. 

Ce point étant précisé, voyons com¬ 
ment procède le DOS quand vous lui 
envoyez une ligne de commande, 
par exemple : ILOAD "ESSAI.BIN". 
Tout d'abord, le microprocesseur fait 
un saut à l'adresse # 400 en rencon¬ 
trant le "!", ceci est tout à fait nor¬ 
mal, le vecteur en (#2F5, #2F6) 
étant positionné à cette valeur. Puis, 
commencent les choses spécifiques 
à la gestion de la RAM overlay : on 
inhibe les interruptions dues au VIA 
(par la séquence classique : LDA 
#$7F, STA $030E), ainsi que les 
interruptions du microprocesseur 
(qui sont masquées par un SEI). 
Alors, on peut commuter la RAM 


overlay (par LDA # $01, STA $3FA) 
et on poursuit l'exécution dans cette 
RAM. Nous allons maintenant don¬ 
ner l'adresse des principales routines 
utilisées, ainsi que leur rôle (adresse 
en hexa, dans la RAM overlay). 

C500 

Sauve la pile du microprocesseur à 
partir de FEF8, sauve le pointeur de 
programme BASIC (E9,EA) en 
(C025.C026), puis continue en 
E42D où on va analyser l'ordre con¬ 
tenu à partir de l'adresse indiquée 
par (E9,EA). Cette routine est en fait 
le véritable point d'entrée à l'inter¬ 
préteur du DOS. On peut trouver 
assez étonnant de sauver entière¬ 
ment la pile du microprocesseur, 
mais ceci est nécessaire pour per¬ 
mettre des sorties rapides en cas 
d'erreur(s). En effet, supposons que 
l'on constate une erreur d'un ordre 
quelconque (erreur de lecture sur le 
disque, erreur de syntaxe dans l'or¬ 
dre envoyé...), il faut rapidement 
pouvoir sortir la RAM pour retourner 
au BASIC. Or, il faut pour cela con¬ 
naître l'adresse de retour du micro¬ 
processeur, adresse qui, bien sûr, 
est contenue dans cette pile. 
Comme, de plus, on ne sait pas à 
quel niveau de sous-programme se 
produit l'erreur et que, à chaque 
appel d'un jsr, des informations sont 
empilées (en particulier l'adresse de 
retour), il est hors de question de 
supprimer une à une les données que 
l'on aurait pu mettre sur la pile. Le 
plus simple était donc de la sauver 
pour la restaurer en sortie. Remar¬ 
quons ici que le même problème se 
pose dans le ROM de l'ORIC où, en 
cas d'erreur, il faut "nettoyer" la 
pile. Mais, dans ce cas-là, on n'a à 
assurer aucun retour (on reprend 
l'exécution à partir du point d'entrée 
de l'interpréteur), aussi peut-on se 
permettre de remettre totalement à 
zéro cette pile (par la séquence : LDX 
# $FF TXS). Ce point explique que, 
quand on appelle une fonction de la 
ROM BASIC, on se retrouve, en cas 
d'erreur, sous l'interpréteur (à moins 
qu'on ait pris ses précautions en 
détournant, par exemple, le vecteur 
de READY en (1 A,1B)). 

D05B 

Reconnaissance d'un mot-clef par 
rapport à une liste de mots. Cette 
routine se charge de chercher si le 
mot qui est à partir de l'adresse 
(E9,EA) + (D01 5) se trouve dans un 
tableau de mots-clefs que l'on a en 
mémoire. Si le mot est trouvé, on 
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renvoie son rang dans D006 et on 
met le CARRY à 1, sinon le CARRY 
est à zéro (le test classique après un 
saut en D05B sera donc : BCC not 
found "lemot n'a pas été trouvé..." 
le mot a été reconnu et on a son rang 
dans le tableau en D006). 

Le tableau des mots-clefs est une 
zone mémoire dont l'adresse au 
moment de l'appel de cette routine 
doit être en (D075,D076), 
(D07A,D07B), (D09D.D09E), codée 
sur deux octets comme d'habitude. 
Les mots sont stockés à partir de 
cette zone sous la forme de la suite 
des lettres composant chaque mot, 
le code de la dernière lettre de cha¬ 
que mot étant augmenté de 128 (en 
décimal) pour préciser qu'il s'agit 
bien d'une lettre finale, la fin du 
tableau étant signalée par un octet 
nul. De plus, l'adresse de la fin du 
texte à analyser doit être indiquée 
par (E9,EA) + (DOOB), donc en DOOB 
on a la longueur du texte à analyser. 
Cette routine est utilisée à plusieurs 
reprises dans le DOS dès qu'il s'agit 
de reconnaître un mot parmi une 
liste de mots. Et donc, en particulier, 
pour reconnaître l'ordre envoyé 
(table des ordres commençant en 
El20) ou pour reconnaître le type 
donné pour un programme (BIN, 
TXT...), table des types à partir de 
£OFE. Remarquons dès maintenant 
que ces deux adresses peuvent être 
modifiées, il suffit d'indiquer en 
(D002,D003) l'adresse de début de 
la table des types que vous souhai¬ 
tez utiliser et en (D000,D001), 
l'adresse de la table des mots-clefs 
que vous désirez. Dès lors, le DOS 
utilisera, éventuellement, ces nou¬ 
velles tables (tout simplement parce 
que c'est à ces deux adresses que 
le DOS va charger l'adresse de début 
de ces deux tables quand il en a 
besoin). On peut ainsi facilement 
modifier telle ou telle caractéristique 
du DOS (par exemple ajouter de nou¬ 
veaux types spécifiques à vos appli¬ 
cations) sans problèmes, mais gare 
aux erreurs ! 


D030 

Reconnaît l'ordre qui suit, à partir de 
l'adresse (E9,EA) + (D015), en utili¬ 
sant la routine précédente. En fait, 
cette routine se contente simple¬ 
ment d'initialiser les variables de la 
routine précédente aux bonnes 
valeurs, puis d'appeler cette routine. 
L'adresse de début du tableau des 
mots-clefs est trouvée en 
(D000,D001). 

D184 

Fait un JUMP à l'adresse donnée 
par: (D004,D005) + 3 = (D006). 
Cette routine est en fait exécutée 
pour lancer les routines de traite¬ 
ment de chacune des fonctions. En 
effet, à partir de l'adresse donnée 
par (D004,D005), on trouve une 
perte de jmp aux diverses routines 
de traitement des fonctions, dans 
l'ordre dans lequel ces fonctions 
apparaissent dans le tableau des 
commandes débutant en (D000, 
D001). Ainsi, si l'ordre reconnu par 
la routine précédente est la 10° du 
tableau des ordres, on effectuera le 
10 e saut de la série des jmps com¬ 
mençant en (D004,D005). Là 
encore, une modification du contenu 
de (D004.D005) permet de changer 
le rôle de certaines fonctions. 


L'analyse de cette série de jmp four¬ 
nit un moyen simple de trouver à 
quel endroit est définie telle ou telle 
commande du DOS et nous vous 
engageons, avant que nous vous 
fournissions ces résultats, à vous 
lancer dans une telle recherche. 

D55B 

Fait un CLS plus un passage à la 
ligne. Rappelons ici que, comme on 
travaille en RAM overlay, on ne peut 
directement utiliser les routines de la 
ROM. Pourtant, il serait fastidieux (et 
gourmand en place) de réécrire tou¬ 


tes les routines dont on a besoin. 
Aussi, quand on a besoin d'une rou¬ 
tine de la ROM, passe-t-on systéma¬ 
tiquement en page 4 : on commute 
alors la ROM normale, on appelle la 
routine après avoir pris soin d'être 
bien sûr de récupérer la main, même 
en cas de déroulement anormal (on 
détourne pour cela le vecteur de 
READY) et on repasse en RAM over¬ 
lay, en relançant l'exécution à une 
adresse précisée en page 4. 

C55A 

Affiche le message situé en 
(C567,C568) et terminé par un octet 
supérieur à 1 28. Cette routine est 
utilisée dès que l'on a des choses à 
sortir sur l'écran, mais aussi dans 
d'autres circonstances que nous 
décrirons en détail. Mais, déjà, 
attardons-nous un peu sur la 
méthode utilisée pour arriver à ces 
fins. On pourrait penser que les con¬ 
cepteurs du DOS utilisent, pour faire 
cette routine, tout simplement la 
routine du BASIC normale (ie de la 
ROM) qui se charge d'afficher un 
message à une adresse donnée (en 
CCBO sur ATMOS et CBED sur 
ORIC-1). Mais, malheureusement, il 
semble qu'ils ne connaissaient abso¬ 
lument pas, ne serait-ce que la pré¬ 
sence d'une telle routine (???). 
Aussi, la méthode utilisée est-elle la 
suivante : 

— On construit dans le tampon cla¬ 
vier (en 35 et suivant) une chaîne qui 
ressemble à l'ordre BASIC que l'on 
utiliserait pour arriver à nos fins (ici : 
PRINT "message", le mot-clef étant 
quand même codé I). 

— Puis, on demande à l'interpréteur 
d'exécuter cette chaîne. 

Cette méthode présente, outre sa 
lourdeur, un inconvénient évident : 
la nécessité de réserver de la place 
en mémoire vive pour y mettre la 
chaîne. En effet, lorsqu'on exécute 
l'ordre PRINT du BASIC, la chaîne 
finale à afficher (surtout si elle pré¬ 
vient de la concaténation de plu¬ 
sieurs chaînes) est mise dans le haut 
de la RAM (en-dessous du HIMEM), 
là où on stocke les chaînes. De ce 
fait, si pour une raison ou pour une 
autre, ce HIMEM est mal positionné 
(et cela arrive fréquemment 
lorsqu'on boote parce que le LM a 
produit une erreur), on peut détruire 
de manière involontaire une partie de 
la mémoire (tout simplement parce 
que le DOS affiche des messages au 
moment du BOOT par cette même 
méthode). De plus, l'emploi de cette 
méthode ralentit considérablement 
le temps d'exécution. 



Une ligne téléphonique est à votre di 
tant en contact direct avec la ri 
vice sans égal ! Respectez simph 
jours que nous vous indiquons 
MERCREDI de 9 h à 12 h et de 1 4 h à 17 h 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent ! 

Le numéro 99«52»98» II. 
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D'autre part, une méthode similaire 
a été utilisée pour interpréter les 
ordres envoyés au DOS. En effet, il 
est possible de spécifier à la com¬ 
mande PRINT l'adresse à partir de 
laquelle elle doit afficher son texte 
(en fait, plus exactement, mettre en 
mémoire). Il suffit pour cela de jouer 
sur l'adresse (12,13) et sur l'adresse 
début écran. Ainsi, on peut mettre 
le texte où l'on veut en mémoire. 

L'occasion était trop belle et les con¬ 
cepteurs du DOS s'en sont large¬ 
ment servis. Ainsi, pour interpréter 
les ordres passés (ou plus exacte¬ 
ment les paramètres), on demande 
au PRINT ''d'afficher'' le texte cons¬ 
titué par les paramètres dans un buf- 
fer (généralement, dans le buffer 
principal, à partir de 48D) et on les 
récupère alors. Ceci permet de ne 
pas avoir à se soucier des variables 
passées en argument, elles sont en 
effet interprétées par le PRINT lui- 
même et leur contenu est mis en 
48D. Cette méthode est un peu 
"pédestre", mais marche assez bien 
(sauf si vous vous amusez sur ORIC- 
ATMOS à changer le nombre de 
colonnes par ligne, cela met le DOS 
dans le plus profond doute). Ce sim¬ 
ple fait explique (et permet de mieux 
comprendre) la manière dont il faut 
passer des arguments aux comman¬ 
des du DOS. Il suffit que la liste des 
arguments soit telle que, si on rem¬ 
place le point d’exclamation ("!") de 
début de commande par un PRINT, 
la ligne affichée ait la bonne forme 
(ie la forme de la ligne qu'on aurait 
tapée en explicitant toutes les varia¬ 
bles). Les espaces que l'on peut 
introduire sur une telle ligne ne sont 
donc pas critiques, seul importe le 
fait que la ligne de commande, une 
fois développée (ie affichée), ne 
prenne pas plus d'une ligne sur 
l'écran. On peut remarquer aussi que 
l'utilisation de la commande PRINT 
oblige, chaque fois que l'on veut 
exécuter un ordre du DOS, à sauve¬ 
garder les paramètres liés à l'écran 
(position du curseur, adresse début 
écran...). Et on peut en particulier 
constater un petit bug au niveau de 
la restauration de l'état du curseur : 
celui-ci est toujours remis dans son 
état "visible". Ainsi, si avant d'ap¬ 
peler un ordre du DOS vous prenez 
la peine de cacher le curseur, celui- 
ci sera à nouveau visible au sortir de 
l'exécution de votre commande. 

Nous avons vu aujourd'hui les routi¬ 
nes de bases du DOS. En attendant 
le mois prochain (où nous verrons 
plus en détail comment fonctionne 


tout cela), je vous conseille vivement 
d'aller jeter un petit coup d'œil du 
côté des adresses indiquées et de 
descendre vers d'autres routines, 
vous y trouverez déjà des détails 
méconnus concernant l'utilisation 
des ordres du DOS. Plus tard, nous 
vous proposerons de modifier toutes 
ces routines afin qu'elles utilisent les 
routines existant en ROM, au lieu de 
passer par la ruse de PRINT qui pro¬ 
duit quelquefois des résultats fort 
déconcertants (réfléchissez en par¬ 
ticulier à ce que donne le détourne¬ 
ment des affichages vers l'impri¬ 
mante en forçant sur les interrup¬ 
tions le flag en 2F1 à la valeur 128). 

Pour aller plus loin 

Nous ne vous donnerons pas 
aujourd'hui la solution des problèmes 
posés le mois dernier, afin de nous 
permettre de revenir sur l'article 
numéro 2 de la série concernant le 
stockage du DOS en RAM overlay 
et, plus précisément, sur les pro¬ 
grammes présentés aux figures 3 et 
4 qui permettaient de modifier les 
ROM ORIC-1 et ATMOS en vue de 
la récupération des programmes pro¬ 
tégés qui tournaient sur cassette. Ce 
programme a posé quelques problè¬ 
mes à bon nombre d'entre vous 
parce qu'il avait la fâcheuse ten¬ 
dance à détruire le jeu de caractères 
et même certains messages d'er¬ 
reurs. Or, ceci est tout à fait NOR¬ 
MAL. En effet, rappelons que le pro¬ 
gramme est destiné à supplanter la 
ROM normale de manière tout à fait 
momentanée (le temps d'un charge¬ 
ment). De plus, il était nécessaire, au 
moment du RESET, d'une part de 
restaurer la première page de la ROM 
(ou RAM overlay qui est détruite par 
certains programmes "malicieux". 
Non ! Nous ne donnerons aucun 
nom...), de sauver la pile du micro¬ 
processeur (certains s'amusent à y 
mettre du code exécutable, n'est 
pas M. L...). Ceci nécessitait de dis¬ 
poser d'au moins 512 octets, bien 
sûr dans la RAM overlay (afin de ne 
pas détruire un bout de programme 
que l'on viendrait de charger). Or, 
quand on cherche de la place dans 
une ROM déjà fort pleine, la première 
idée qui vient est de supprimer les 
trucs les moins utiles. Il n'était pas 
possible de supprimer une fonction 
du BASIC (quel critère universel 
aurait permis de décider de telle 
fonction qu'elle était inutile ?), aussi 
l'emplacement utilisé pour définir le 
jeu de caractères était un bon client. 
En effet, celui-ci n'est utilisé que lors 
d'un reset à froid ou à chaud (qui, 


dans notre ROM modifiée, sont 
réduits à leur plus simple expression) 
ou lorsqu'on les appelle 
explicitement. 

De plus, ne pas avoir les caractères 
en clair sur l'écran n'était pas très 
grave. Vu que cet état est très pro¬ 
visoire, il suffit de repasser en ROM 
normale (POKE # 3FA,0) et de réini¬ 
tialiser alors les caractères. Comme 
cette place ne suffit pas toujours, 
certains programmes plus malins 
modifient encore plus de parties 
dans les premières pages de la RAM, 
en particulier la routine de passage 
au caractère suivant dans un ordre 
BASIC (en E2 et suivant), on peut 
aussi mettre du code exécutable 
dans les messages d'erreurs (on sait 
généralement le type d'erreur que 
l'on commet, sans avoir besoin de 
plus de précisions). 

Certes, tout ceci aboutit à produire 
une ROM qui n'est pas utilisable en 
tant que ROM définitive, mais ceci 
n'est pas grave puisque son passage 
dans les entrailles de l'ORIC n'est 
que temporaire. Il suffit, en fait, de 
se laisser le strict minimum pour 
pouvoir encore travailler et on récu¬ 
père ainsi toute la place nécessaire 
à faire les diverses restaurations 
nécessaires après le chargement de 
programmes voraces. Signalons 
aussi aux personnes qui disposent 
des ORIC-ATMOS première version 
(ceux qui affichent sans cesse 
"errors found", même si le charge¬ 
ment s'est bien passé) qu'il est 
nécessaire de corriger (dans la RAM 
modifiée ce bug), sinon cela pose de 
sérieux problèmes. En fait, la philo¬ 
sophie de ce programme était de 
laisser le programme chargé démar¬ 
rer normalement, tout en se permet¬ 
tant de reprendre la main quand on 
le désire. Moyennant ces quelques 
petits désagréments pas bien con¬ 
traignant quand on les connait, on 
peut, avec l'aide de ce programme, 
transférer de cassette à disquette 
tous les logiciels existant dans le 
commerce et tournant sur cassette 
(même LORIGRAPH superbe soft de 
dessin réalisé par LORICIEL). 

Mais, ATTENTION, et nous ne le 
répéterons jamais assez, il ne s'agit 
nullement de pirater des softs (vous 
et moi aurions tout à y perdre), mais 
simplement de faire une chose que 
les éditeurs devraient avoir réalisé 
depuis longtemps : le transfert des 
softs de cassette à disquette. Alors, 
si vous voulez pouvoir encore utili¬ 
ser des softs de bonnes qualités sur 
ORIC, transférez, oui, mais ne PIRA¬ 
TEZ PAS...! il 
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JASMIN : UN LANCEUR 
DE PROGRAMMES 


C 


Philippe AVRILLON 


e programme permet le lancement automatique de logiciels 
stockés sur disquette, par la simple indication du numéro cor¬ 
respondant au titre à lancer. 


I 


Il permet en outre, dans le cas où le 
nombre de logiciels dépasse 14, 
d'afficher une suite sur demande 
ou un retour à la page précédente. 

• L'appui sur la touche 'F' permet 
de revenir au BASIC. 

• L'appui sur la touche 'C' permet 
d'afficher le catalogue. 

• L'appui sur la touche ’L’ permet 
de sortir sur imprimante les titres de 
logiciels, ainsi que le numéro de vo¬ 
lume (cette option n'apparaît pas à 
l'écran). 

Il faut, pour cela, rentrer sous forme 
de DATA le titre entier du logiciel et 
celui sous lequel il est sauvegardé 
sur la disquette. 


Exemple de remplacement 
0 DOKE#1B,#CBED 
50 PLOT14,1,"VOLUME:":PLOT 

14,2,"-" 

100 POKE616,23:PRINT,: 

POKE617,26:PRINT"VOTRE 

CHOIX" 

En tapant ICUT2000, vous pouvez 
refaire un nouveau lanceur, sur une 
autre disquette, en changeant le 
numéro de volume et le nombre de 
programmes. Sauvegarder lanceur 
sous la forme 'P. Il pourra ainsi être 
lancé automatiquemeni par le DOS 
grâce à l’instruction START. 


Liste des variables 
Structure du programme 

VL 

Numéro du volume 

NP 

Nombre total de programmes à 

afficher dans le cadre VOTRE 

CHOIX 

10-50 

Cadre 

52-60 

Teste pour VL<10 ou VL<100 ou 

VL >100 

70-72 

Fin du cadre 

1000 

Lecture des data 

1010-1030 

Initialisations 

1100-1195 

Placement des programmes dans 
le cadre 

1110 

Teste si plus de 14 programmes à 
afficher 

1200 

Si plus de 14 programmes, on affi¬ 
che S=SUITE 

100-190 

Choix des fonctions avec lance¬ 
ment programmes 
1500-1530 

Cas où l'on choisit suite 

1600-1620 

Cas où l'on choisit un retour 

1900-1960 

Sortie des programmes sur impri¬ 
mante 
2000 

Data des programmes 


20 


Exemple : 

2000 DATA LANCEUR DE PRO- 1 
GRAMME,LANCEUR 
Le 1er titre est celui qui s'affichera 
dans le cadre "VOTRE CHOIX" ; le 
2ème titre est celui qui représente 
le 1er sur disquette. Dans cet exem¬ 
ple, le titre est "LANCEUR DE PRO¬ 
GRAMME" ; sur la disquette, c'est 
"LANCEUR". 

Il faut aussi définir le numéro de vo¬ 
lume en ligne 2 (variable VL). NP re¬ 
présente le nombre total de titres 
de programmes à afficher dans le ca¬ 
dre "VOTRE CHOIX". 

Pour les utilisateurs d'ORIC-1, il faut 
modifier la ligne 0 et retrancher 1 à 
chaque absisse des instructions 
PLOTX.Y,"" et remplacer: 
PRINT@X,Y;" "par: 

POKE616,Y:PRINT ;:POKE617,X: 
PRINT" 


VOLUME 

P FENË TFtE:S 
GESTION OE nTS 

* ENU ?p/eT °7->K7 

BON NUITEE 

T ft 'oos e NESO R es 

^THNETIOUE 

HELl p0RT 

D£ V0L 
»•«* 
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0 DOKE#1B,#GCBO 

1 RELEASE:HIMEM#97FF:CLEAR 

2 VL=20:NP=18 

3 REM *************************** 

4 REM ** ** 

5 REM ** LANCEUR DE PROGRAMMES ** 

6 REM ** PAR ** 

7 REM ** AVRILLON PHILIPPE ** 

8 REM ** ** 

9 REM *************************** 

10 POKE48036,0 :PAPERO: INK2:CLS:POKE61 
8,10 

20 FORI=#BBAATO#BFBASTEP40:POKEI,#7F: 
POKEI+37,#7F:NEXT:POKE#BBAA,18 
30 POKE#BFBA,18:POKE#BBD3,0 :POKE#BBDE 
,18:POKE#BBEA,16:POKE#BBEB,2 
40 POKE#BBFB,0:POKE#BC06,18:POKE#BC12 
,16:POKE#BC13,2 

50 PLOT15,1,"VOLUME:":PLOT15,2,"- 

_II 

52 IF VL>=100 THEN PLOT21,1,STR<(VL) 
55 IF VL<100 AND VL>=10 THEN PLOT22,1 
,STR*(VL)IPLOT22,1,"0" 

60 IF VL<10 THENPLOT23,1,STR*<VL):PLO 
T22,1,"00" 

70 PLOT4,4,19:PLOT3,4,0:PLOTS,4,"THEO 
R IC PRESENTE :":PLOT24,4,2 :PLOT25,4,1 
6 

71 PLOT3,23,3:PLOT25,23,2:PLOT3,24,3: 
PLOT25,24,2:PLOT 16,23,6:PLOT 16,24,6 

72 PLOT4,24,"F=FIN":PLOT4,23,"C=CATAL 
OGUE" 

80 GOSUB 1000 
90 GOTO 1100 

100 PRINT@26,23)"VOTRE CHOIX" 

110 PRINT@26,24 J">>> <<<" 

120 PRI NT@29,24 INPUTA* 

130 IF A*="F" THEN CLS: END 

140 IF A * = " C " THEN CLS: ! CAT"": END 

145 IF A*="L" THEN 1900 

150 IF C=1 THEN IF A*="S" THEN 1500 

160 IF D=1 THEN IF A*="R" THEN 1600 

170 F=VAL< Ai) ! IF F<1 OR F>NP THEN 100 

171 IF F>I THEN 100 

172 IF F<E THEN 100 

174 G=F 

175 IF I>14 THEN 1=1-14:GOTO 175 
180 IF G>14 THEN G=G-14 : GOTO 180 

182 IF 1=14 THEN H=20-(I-G) 

183 IF I<14 THEN H=14-<<I/2)-G) 

185 PLOT37,H,2 :PLOT38,H,8 :PLOT3,H,12 : 
PLOT 4,H,1 

190 F=F-1:WW=FRE<""):!M*(F) 

1000 RESTORE :DIMNMt(NP),M*(NP) :FORI=0 
TONP-1 :READ NM*(I) ,M*(I) !NEXT 
1010 B=0:E=0 


1020 IF NP>14 THEN A=16:GOTO 1030 
1025 A=NP 
1030 RETURN 

1100 IF NP=14 THEN A=A+2 
1105 FOR I=E TO NP-1 
1110 B=B+l:IF B=15 THEN1200 
1150 PLOTS,15-<A/2>,STR*<1+1) 

1160 PLOT9,15-(A/2),NM*(I) 

1170 A=A-2:NEXT 
1195 GOTO 100 

1200 C=1: PLOT 17,23,"S=SUI TE":B=0 
1210 GOTO 100 

1500 FOR J=7 TO 22:PLOT4,J," 

"IREM 32 ESPACE 
S 

1505 NEXTJ 

1510 E=E+14 :B=0:Z=NP-E 

1512 IF Z>15 THEN A=15 ELSE A=2 

1515 IF E>13 THEN D=1 

1520 C=0: PLOT17,23," 

1530 PLOT17,24,"R=RETOUR"! GOTO 1100 
1600 FOR J = 7 TO 22 :PLOT4,J," 

": REM 32 ESPACE 
S 

1605 NEXT J :D=0 

1610 A=15 :E=E-14 :B=0: IFE>13THEND=1 : PL 
OT17,24,"R=RETOUR":C=1:G0T01100 ELSE16 
20 

1620 D=0:C=1 : PLOT17,24," ":GOT 

O 1100 

1900 LPRINTSPC<5)"VOLUME :"J VL 
1910 LPRINT 

1920 RESTORE :FORI = 1TONP:READA*,B*:LPR 
INTA* 

1930 NEXT:RUN 

2000 REM La suite sert d'exemple. 

2001 : 

2002 DATA 

2003 DATA 

2004 DATA 

2005 DATA 

2006 DATA 

2007 DATA 

2008 DATA 

2009 DATA 

2010 DATA 

2011 DATA 

2012 DATA 

2014 DATA 

2015 DATA 

2016 DATA 

2017 DATA 

2018 DATA 

2019 DATA 

2020 DATA 


GESTION DE FENETRES,FENAT 
MENUS DEROULANTS,SUPFEN 
TRANSFERT D7->K7,TDK 
LIAISON MINITEL,ATMITEL 
TIERCE,HIPPIC 
A VOS MESURES,MESURES 
GOTO LABEL,LABELS 
ARITHMETIQUE,TABLES 
HELIPORT,HELIPORT 
BASIC 5,BASIC5 
SIMULATEUR DE VOL,FLIGHT 
PACMAN,PAC 
L'AIGLE D'OR,AIGLE 
SINGERIES,SINGE1 
MINI-MONITEUR,MONIT 
TABLEUR,TAB 
ORIC PARLE,VOICE 
TELECHARGEMENT,TELE 
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BLEU-CIEL INFORMATIQUE 
Un jeu sur les mots 
G. Quadri 


LUDICO est un passe-temps qui met 
en œuvre la logique déductive. 
Dans une main, 3500 noms com¬ 
muns, adjectifs, verbes, adverbes..., 
dans l'autre un capital de 100 points 
qui, au fil du jeu, se comportera 
comme une peau de chagrin. La 
règle est simple. Six mots, de six let¬ 
tres, sont affichés à l'écran qui ont 
(ou pas) un rapport avec le mot à 
découvrir. A côté de chacun de ces 
mots, figure le nombre de lettres que 
ce mot possède, en commun, avec 
le mot mystère. Il faut, de plus, que 
la lettre ou les lettres communes 
soient de même rang. Un petit tra¬ 
vail de logique permet, déjà, de tirer 
quelques enseignements. Il est alors 
possible d'avoir confirmation de 
l'emplacement d'une ou plusieurs 
lettres en choisissant l'option "pro¬ 
position”, sept mots (six plus le 
vôtre) seront alors affichés, ce qui 
vous donnera une base de recherche 
plus importante. Mais votre capital 
se trouvera amputé de 2 points. 
Tout se paie, en ce bas monde ! 
L'option "gommage" vous permet 
d'effacer, dans la liste de mots, tou¬ 
tes les lettres dont vous êtes sûr 
qu'elles ne font pas partie du mot 
mystère. D'où, meilleure approche 
visuelle du problème, mais 3 points 
de moins. L'option "affichage" vous 
offre une autre facilité visuelle. Elle 
affiche dans une fenêtre, et en 
caractères double hauteur, les lettres 
dont vous êtes certain qu'elles exis¬ 
tent dans le mot mystère. Tout est 
sur l'écran ; pas de papier, pas de 
crayon, il n'y a pas de petites éco- 


VITRINE 

OU 

LOGICIEL 


Piarra TACONNET 

nomies ! 2 points de moins pour l'af¬ 
fichage. L'option "dico-vérif" vous 
rassurera, ou pas, sur l'existence 
d'un mot ou sur son orthographe. 
Pour cette opération, la note est 
salée. C'est 20 points qui partent en 
fumée. "Dico-liste" vous donne 
accès, moyennant 30 points, au dic¬ 
tionnaire de LUDICO. Mais il faut 
donner l'initiale du mot, ce qui n'est 
pas toujours évident à connaître. 
Enfin, les défaitistes sont très mal 
vus de l'auteur, il leur enlève, sans 
appel, la moitié de leur capital. Ne 
choisissez jamais l'option 
"abandon". 

Trois formules de jeu sont offertes. 
"Match" met en jeu, alternative¬ 
ment, deux adversaires. "Record" 
vous met au défi d'être plus perspi¬ 
cace qu'à la précédente partie (les 
possesseurs de disquettes n'auront 
pas à entrer leur précédent score, 
mémorisé). "Marathon" vous trans¬ 
forme en compétiteur de longue 
haleine. Il ne s'agit pas de flancher ! 
En conclusion, un jeu très agréable, 
pas idiot et très bien réalisé qui 
saura, par ses défis, captiver tout un 
chacun. 
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BLEU-CIEL1NFÔRMATIQUE 
Statistiques sur le LOTO NATIONAL 
G. Quadri 


La hauteur de l'ORIC... 6 cm ? Je 
coche le 6. Sa longueur... 28 cm ? 
Je coche le 28. 

Si vous espérez coupler à votre ORIC 
la dernière imprimante à laser et que 
vous jouez au LOTO de cette façon, 
épousez plutôt une riche héritière ou 
aller mettre un cierge à la patronne 
des naïfs ! Si, par contre, vous êtes 
réaliste, mettez toutes les chances 
de votre côté et utilisez cet excellent 
programme qui, par la statistique, 
diminuera les incertitudes. 

Le premier atout de ce programme 
est qu'il utilise les résultats des 727 
premiers tirages, ce qui lui permet de 
vous assister dans le choix difficile 
des 6 numéros de la loterie nationale 



la plus hasardeuse, mais aussi la plus 
prometteuse. Son deuxième atout 
est dans le caractère évolutif de sa 
banque de données. A vous d'entrer 
les derniers tirages. Les atouts sui¬ 
vants tiennent dans les analyses 
diverses qui s'offrent à vous et que 
l'on trouve au menu. 

"Edition des tirages" offre la possi¬ 
bilité de consulter les tirages passés, 
un à un, ou par lot (vous avez même 
le choix de la vitesse de défilement). 
"Fréquence de sortie" vous indique 
l'espérance mathématique de sortie 
d'un numéro (affichage des 49 
numéros) et la moyenne générale. 
"Les écarts" vous font connaître le 
nombre de tirages qui séparent la 
dernière sortie d'un numéro donné 
du dernier tirage effectué. "Affini¬ 
tés" vous dévoilent les préférences 
qu'ont certains numéros pour leurs 
semblables. "Performances d'une 
grille" vous empêche de commettre 
la gaffe de votre vie, c'est-à-dire 
jouer un tirage déjà sorti. Il y a, en 
effet, toutes les chances pour qu'un 
tirage de 6 numéros sorti hier ne 
frappe à la porte du hasard que dans 
968000 siècles ! Serez-vous assez 
patient ? 

Nous avons regretté l'absence de 
sortie sur imprimante, mais nous 
avons apprécié l'affichage des 
temps de recherche du programme. 
Puisqu'il n'est pas possible de sortir 
de cette phase de calcul ou de 
recherche, c'était nécessaire. La 
musique de fin de programme, "Ce 
n'est qu'un au revoir", semble indi¬ 
quer qu'il sera nécessaire, si vous 
désirez vous rembourser les 140 F 
de votre achat (195 F pour la dis¬ 
quette TELESTRAT), de recourir à 
plusieurs reprises aux services de cet 
agréable programme. Bis repetita 
placent ! 
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LES DISQUETTES DE THEORIC 


Tous les programmes de THEORIC, groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 


Le prix : 116 F pour les abonnés à la revue (joindre impérativement l'étiquette), 146 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n° 4 et 5 

N° 2 THEORIC n° 6 et 7 

N° 3 THEORIC n° 8 et 9 

N° 4 THEORIC n° 10 et 12 

N° 5 THEORIC n° 13 et 14 

N° 6 THEORIC n° 1 5 et 1 6 

N° 7 THEORIC n° 17 et 18 

N° 8 THEORIC n° 19 et 20 

N° 9 THEORIC n° 21 et 22 

N° 10 THEORIC n° 23 et 24 

N° HS THEORIC HORS SERIES (n° 1 1 ) 

N° 1 1 THEORIC n° 25 et 26 

N° 12 THEORIC n° 27 et 28 

N° 13 THEORIC n° 29 et 30 

N° 14 THEORIC n° 31 et 32 


Il 

n'y a pas de prograsae TELESTRAT sur cette disquette 

VOLUME : T031&32 

U DEHOCLEA.BAS S 

U 

GESTBRK 

.BAS 

S 

U 

JACKPOT .BAS 

S 

U 

LIBRA1 

.BAS 

S 

U 

JP .BIN 

S 

U 

LIBRA1 

.BIN 

S 

U 

LANCEUR .BAS 

S 

U 

TABLES 

.BAS 

S 

U 

•VER I LIST. BAS 

S 

U 

BASIC+ 

.BAS 

S 

U 

MINILOGO.BAS 

S 

U 

HELIPORT.BAS 

S 

U 

COURRIER.BAS 

S 

U 

EDIT* 

.BAS 

S 

U 

TEXTIMP .BAS 

S 

U 

CLEARER 

.BAS 

S 

U 

SUPTRON .BAS 

S 


BON DE COMMANDE 
DES DISQUETTES THEORIC 

Je commande les disquettes 1, 2, 3, 4, 5 HS ; 6, 7, 8, 9, NOM .Prénom . 

10, 11, 12, 13, 14. 

Ci-joint : 116 F par disquette et mon étiquette abonné Adresse. 

146 F par disquette car je ne suis pas abonné 

Soit au total la somme de F réglée par chè- Code Postal .... Vill* . 

que ci-joint. 





















SONDAGE MENSUEL THEORIC 
La Haie de Pan 
35170 BRUZ 

Inscrivez vos remarques et suggestions ci-dessous : 


Matériel utilisé : 


'•* (facultatif) Nom :_Prénom :_ fe 

® Adresse :_™ 

b..................J 


r 


PETITES ANNONCES 


La plaça réaarvéa aux patltas annoncaa aat 
limité*. En conséquence. callaa-ci paaaant 
dan* laur ordra d'arrtvéa. Par contra, laa patl- 
taa annonça* farfaluaa sont systématiqua- 
mant rejeté*»... O* même, comme II aat peu 
probable qu'il axiat* daa "généraux dona- 
taura" dp matériel* ou da logiciel*, la* peti¬ 
te* annonça* faisant appel ê ce* philantro- 
pa» ne aaront inaéré** que *1 la place libre 
la permet. 

Seront refuaéa* tout** la* annonce* vlaant 
à vendra ou échanger de* Data* ou copia* de 
logiciel* non garanti* "d'origine", alnai que 
tout* annonça Incitant au piratag*. 

En conaéquanc*. réfléchiiiar bien avant 
d'envoyer vo* texte*. 

La* petite* annonça* doivent Impérativement 
nou* parvenir aur la grill* (découpé* ou pho¬ 
tocopiée). I* texte étant rédigé é ralaon d'un 
caractère par ca*a. 

Enfin, toute annonça non accompagné* da 
timbra* ne «ara pa* insérée 

Passionné d'ATMOS cherche correspondants 
pour échanges divers. BELLIER Stéphane - 180, 
fg du Nord - 34130 Mauguio - tél. 67.29.51.83. 

Achète lecteur disquettes Jasmin 2 +. Faire offres, 
uniquement sur Lyon, à RENTERO Marc - tél. 
78.88.39.05 


Vends ORIC-ATMOS 48 K » magnéto ♦ écran cou¬ 
leur + livres + 9 jeux, achat décembre 85 : 2000 F à 
débattre Tél. 42.80.12.30 le soir. 

Vends ROM ATMOS. ou échange contre TORIC â 
nu/Cobra Pinball ou Talisman. DIASO Joseph - 
quartier Mermoz - bat. D2 - 54240 Joeuf. 

Cause départ, vends Télestrat + ROM ATMOS sur 
disk : 3500 F. Tél. 76.35.39.77 après 18h00 ou le 
lundi 76.96 89.36. 

Vends cordon imprimante Centronics : 95 F. Pro¬ 
grammation du 6502 Sybex : 80 F. Visa pour ORIC 
SORACOM : 30 F. Tél. 33.24.30.45. 

Recherche Jasmin et MCP40. Faire offres BAR¬ 
NIER M-Vierzon- tél. 48.75.49.89 après 18h00. 

Vends ATMOS + Jasmin + multi fich. ♦ Jasmin Cale 
+ Vortex ♦ Mathegraph + 15 disques vierges + Thé¬ 
orie + Micr’Oric complet ♦ livres. Tél. 41.93.06.72. 

Vends ATMOS + Jasmin 2 + 9 disques ♦ 25 Théorie 
+ programmes + copieurs : 3000 F à débattre. Tél. 
75.08.12.82 le samedi 13h00ou 20h00, François. 

Vends interface série (RS232) pour ORIC-1/ 
ATMOS (connexion imprimante, modem, minitel, 


matériel OM, etc), neuf. Tél. 30.43.01.06. 

Cherche pour ATMOS-Jasmin logiciel gestion do¬ 
mestique Logys (disquette) + ampli BUS même en 
panne. Faire offres - tél. 74.30.47.71. 

Vends ATMOS + manuel ♦ livres ♦ nombreuses K7 
(Tyrann, Dian, Ile Maudite. Cobra. Pinball...) + ma¬ 
gnéto Rubycom : 1000 F. Tél. 46 44 59,87. 

Achète livres et revues concernant Sharp 
PC1500A et APPLE II +. SUDELEC- 16, bis Chide 
La Baronne - 06110 Le Cannet - tél 93.45 88.71 
matin. 

Cherche lecteur de disquettes ORIC. Faire offres - 
tél. 97.37.79.56 après 18h00 

Vends ATMOS 1985 + magnéto K7 + revues 
Théorie + Loriciels |eux + cordon Péritel. Tél. 
86.58.31.26. 

Vends ORIC-ATMOS Cpiet + doc. + lect. K7, exc. 
état (1/86), valeur 1340 F cédé 900 F. Jeux disp. : 
60 F pièce. 24. rue Bousbec - Queroncq 59223 - 
tél. 20.03.63.95. 

Cherche plan ou cordons MS-TEL Copytel ORIC, 
Jasmin 1. PORADKA J.-P. - 24, lot. Gousse - 
40270 Grenade sur Adour-tél. 58.45.17.35. 
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Notez les articles de ce numéro selon les critères suivants : 


0 : ne me concerne pas 

2 : intérêt moyen 

4 : très intéressant 

Opinion globale sur ce numéro 

1 : ne m'a pas intéressé 

3 : intéressant 

5 : passionnant 

• 

• 


Courrier des lecteurs 

□ 

Suptron 

□ 

Actualité 

□ 

Fonction SCRN 


Enquête ORIC-THEORIC 

□ 

pour TELESTRAT 

□ 

Essai du modulateur UHF 

□ 

Récupération de lecteur 

□ 

Mini-Logo 

□ 

Les connecteurs 


Jackpot 

□ 

du TELESTRAT 

□ 

Vérilist 

□ 

Trucs et astuces TELESTRATD 

Qualité courrier 

□ 

Tout sur FT-DOS 3-2 

□ 

Clearer 

□ 

Lanceur de 


Contrôle d'un moteur (1) 

□ 

programmes JASMIN 

□ 



G. HENRIAT - 5. rue Guy Moque! - 91390 Mor- 
sang, recherche logiciels disquettes Jasmin 2 ou 
Jasmin AM5DSP1-4. TP réponse SVP. 

Vends lecteur Jasmin 1 (ss contrôleur) : 700 F * 26 
disk de log. : 30 F Tune. Ampli BUS : 250 F. Int. joy¬ 
stick, program. : 300 F Tél. 7431.97.49. 

Vends ATMOS nov. 85 + Jasmin 1 + Easy-text + 
Jasmin Cale ♦ livres + disquettes, urgent : 2300 F. 
Tél. 90.72.83.51 le soir ou détail 


Recherche anciens Théorie avant le n° 25, bas 
prix, taire offres Bruno CHOISELLE - 22. rue de 
Taissy-appt. 109 - 51100 REIMS. 

Vends moniteur mono Zenith, neuf : 550 F. COR- 
NIEUX B. - 34. oie de La Martmière - 37250 Vei- 
gne-tél. 47.26.13.65. 

Cherche prog. et lect Jasmin 2 pour ATMOS. J'at¬ 
tends vos propositions. M. CELERS Sylvain - Con- 
chy sur Canche - 62270 Frevent. 


Vends ATMOS ♦ alimentation . câbles » 30 hebdo 
giciels ♦ 25 théories + 50 logiciels ♦ 6 livres ♦ re¬ 
vues : 700 F le tout. Tél. 43.40.01.34. 

Cherche désespérément assembleur Hades. Ur¬ 
gent I Faire offres à Luis LOPEZ - tél. 48.24.22 51 
(après ShOO du soir). 

Vends ORIC-1 48 Ko + magnéto K7 ♦ divers logi¬ 
ciels «livres (SVM. list, micro 7) : 2000 F le tout à dé¬ 
battre. Tél 81.93 52.40. 



LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 



o Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

| SORACOM, La Haie de Pan-35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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ATMOS/ORIC 1 

HADÈS 

ASSEMH FUR OFSASStMBlfcUR 
MONITEUR SOURCEUR 
DffttJGGEUR 



HADES 

Indispensable pour 
travailler en assembleur 



KARATE 

Jeu d'action 



THLON 

sportive 




EXCEPTIONNEL : 


Deux livres indispensables pour mieux utili¬ 
ser les routines internes de l'ORIC-1 ou de 
l'ATMOS. 


Des logiciels utilitaires ou de jeu, édités par 
ERE Intormatiaue, offerts à des prix incroya¬ 
blement bas... (au moins 20 % d'économie sur 
chaque titre I). __ 

Prix unique :99 F 



sur ce " e 

page- — ^ ■ 

r 

i 



“— cTcT**** 0 " 


tUMPER 



Attention I 

Cette offre sur les 
cassettes n'est va¬ 
lable que si nous 
recevons un mini¬ 
mum de comman¬ 
des. Si ce minimum 
n'est pas atteint, vos 
chèques vous seront 
retournés. 


I 

I 

I 

1 

I 

I 

1 

1 

1 

I 

1 

I 

1 


o O H ^ £ doivent être rég'^P ar 

W nde simoun®®' d °’ 

jp commande 

.les cassettes enCOS 

Lesiivre*® épores. 99 

a cheQ ue «n 

* . —ndt 


s'entendent p 


99 F 
99 f 
U9 F 


Tous les P e .. . . 

.*•***** «. 


a+w- *’ 

livres- 

Q Hades ’ * ‘ 

O * or °lt n 

CH#'.*»*’*"' f 

cassettes- 

^om - - —- 


99 F 
99 F 
99 F 
99 F 
99 F 

' ‘ 350 F 


... 

» . J .d e soRACO«<-"”° 

r- 4 "* _- 

Prénom '• 


SORACfSW 


















SORACfW 

iNfOSM*”** 


prénom 


f4om • • 

Adf esse 
\ Oé^9 n 


La Haie de Pan 
35170 BRUZ 


CONVNVANDt 



